Visual Basic - creacion de una nueva hoja para un data report

Life is soft - evento anual de software empresarial
 
Vista:

creacion de una nueva hoja para un data report

Publicado por programador nuevo (6 intervenciones) el 20/07/2006 19:22:06
Quiero pasar a una nueva hoja cuando termine de llenar los datos en la anterior, como se hace eso??????

ya me dijeron lo de .Sections("Sección1").ForcePageBreak = 1 pero saben esto me decencadena un pequeño problema por que me desaparece la informacion completa
solo aparece 1 dato, bueno con las otras opciones me sucede casi lo mismo

Sections("Sección1").ForcePageBreak = 0 aparece igual a la cantidad de registros que caigan solamente en la hoja y no mas

Sections("Sección1").ForcePageBreak = 2 las otras op son parecidas a la primera
Sections("Sección1").ForcePageBreak = 3
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:creacion de una nueva hoja para un data report

Publicado por Bernardo (8 intervenciones) el 22/07/2006 22:07:17
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar