RE:Nueva pagina en un active report o data report
Hola, prueba con este pedazo de ejemplo de un trabajo mío. TempCliente es el nombre de mi DataReport. Pregunto al usuario si desea una página por cliente, o un cliente a continuación de otro, sin división por página. Hice muchas pruebas para llegar a esto, no hay mucha literatura al respecto, al menos en español. Yo probé y probé una y mil veces, hace que lo logré. Te sugiero que no te canses de experimentar, una y mil veces, es la forma de lograr todo. Suerte. Bernardo, en la ciudad de Elena en la provincia de Córdoba, Argentina. Sábado 22 Julio 2006.-
' Opción usuario imprimir hojas por separado por cada cliente. Sinó, contínuas.
iRespuesta = MsgBox("Si desea imprimir una página por cliente, " & vbCrLf & _
"entonces, haga clic en ""Si"".¡Gracias!.", vbQuestion + vbYesNo + vbDefaultButton2, _
"MC Computación")
If iRespuesta = vbYes Then
TempCliente.Sections(3).ForcePageBreak = rptPageBreakBefore
TempCliente.Sections(3).KeepTogether = True
Else
TempCliente.Sections(3).ForcePageBreak = rptPageBreakNone
TempCliente.Sections(3).KeepTogether = False
End If
TempCliente.Show
TempCliente.Title = "Movimientos de Cta.Cte.Cliente del " & _
Format(FechaDesde, "dd/mm/yy") & " al " & Format(FechaHasta, "dd/mm/yy") & "."
Exit Sub