[R] pagebreak in xtable and columns'width

[n.vialma at libero.it]

Dear list,
I'm using the Sweave function in order to get some report.
Here one chunk:

<<echo=F,results=tex>>=
report<-lapply(repor, function(x) {
(print(xtable(data.frame(x[1:2,]), align="|l|rrr|"),floating=FALSE,tabular.
environment="longtable",include.colnames=FALSE,size="\\small"))
(print(xtable(data.frame(x[3:nrow(x),]),align="l|rrr"),floating=FALSE,tabular.
environment="longtable",include.colnames=FALSE,add.to.row=list(pos=list
(1,12,23,43), command=c("\\hline\\\\\\multicolumn{1}{l|}{\\textbf{Stato 
Patrimoniale Attivo}}\\\\","\\\\\\multicolumn{1}{l|}{\\textbf{Stato 
Patrimoniale Passivo}}\\\\","\\\\\\multicolumn{1}{l|}{\\textbf{Conto Economico}}
\\\\","\\\\\\multicolumn{1}{l|}{\\textbf{Indicatori di Bilancio}}\\\\")),size="
\\small",NA.string="."))})


I would like to Know if somewhere in xtable I can put the command \pagebreak . 
The object repor over I pass the lapply function and after the xtable function 
has more or less 200 tables. So at the end of each table, the new table would 
have to start at a new page. I tried to put \pagebreak in "command" but it 
doesent work.Any suggestions???
Moreover someone knows how to set the width of each column?
Thanks for your attention