VB6 con Crystal Report 9 ( Original y Duplicado )
Publicado por Claudio (33 intervenciones) el 26/03/2021 15:53:11
Hola gracias a todos de antemano, tengo una aplicación en VB6 con crystal report 9 , y lo que quiero hacer es imprimir 2 copias con el report.PrintOut false,2 pero que en la primera copia salga ORIGINAL y en la segunda copia salga DUPLICADO.
Hay alguna forma de hacerlo ?
Aca pongo un ejemplo sencillo:
------------------------------------------------------------------------------------------
O en su defecto que el viewer me muestre dos copias ( que no se como hacerlo )
Hay alguna forma de hacerlo ?
Aca pongo un ejemplo sencillo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim Report As CRAXDRT.ReportDim CRapp As New CRAXDRT.ApplicationPrivate WithEvents oSection As CRAXDRT.SectionDim Pic1 As OLEObject
Dim i As Integer
Private Sub Form_Load()
Set Report = CRapp.OpenReport(App.Path + "\report1.rpt")
Report.PrintOut False, 2
End Sub
------------------------------------------------------------------------------------------
O en su defecto que el viewer me muestre dos copias ( que no se como hacerlo )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim Report As CRAXDRT.ReportDim CRapp As New CRAXDRT.ApplicationPrivate WithEvents oSection As CRAXDRT.SectionDim Pic1 As OLEObject
Dim i As Integer
Private Sub Form_Load()
Set Report = CRapp.OpenReport(App.Path + "\report1.rpt")
CrystalActiveXReportViewer1.DisplayToolbar = True
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.ViewReport(aca no se como hacer dos copias , si lograra hacer 2 pagina lo manejo con el nro de pagina)
End Sub
Valora esta pregunta
0
