Rotación 90 en CR8 usando VB6
Publicado por Albert (4 intervenciones) el 26/09/2008 09:19:02
Tengo una pequeña aplicación en VB6 que utiliza un report de Crystal Report 8 para imprimir etiquetas con textos y código de barras.
El programa funciona perfectamente pero ahora he tenido que hacer dos cambios en el formato del report: por una lado paso de orientación vertical a orientación horizontal y, por otro, he tenido que cambiar el código de barras y un texto para que salgan verticales.
Los dos cambios los he realizado directamente en Crystal Report. En el primer caso cambiado la orientación de la impresora y en el segundo cambiando el formato con rotación 90.
Cuando abro el report con CR8 y le pido que actualice los datos, me aparece el report perfecto y, si lo imprimo directamente desde CR8, la impresión también es correcta. En cambio, si ejecuto la impresión directamente desde el programa en VB6, los dos datos que debieran tener rotación 90 me aparecen sin dicha rotación.
Para llevar a cabo la impresión desde VB6 utilizo las instrucciones siguientes:
CRC.ET.ReportFileName = App.Path & "MasterCartonEtq.rpt"
CRC.ET.WindowTitle = "Imprimiendo Master Carton"
CRC.ET.PrinterCopies = 1
CRC.ET.Destination = crptToPrinter
CRC.ET.PrinterName = ""
CRC.ET.PrinterSelect
If CRC.ET.PrinterName <> "" Then CRC.ET.PrintReport
¿Alguien me puede echar una mano con el tema?
El programa funciona perfectamente pero ahora he tenido que hacer dos cambios en el formato del report: por una lado paso de orientación vertical a orientación horizontal y, por otro, he tenido que cambiar el código de barras y un texto para que salgan verticales.
Los dos cambios los he realizado directamente en Crystal Report. En el primer caso cambiado la orientación de la impresora y en el segundo cambiando el formato con rotación 90.
Cuando abro el report con CR8 y le pido que actualice los datos, me aparece el report perfecto y, si lo imprimo directamente desde CR8, la impresión también es correcta. En cambio, si ejecuto la impresión directamente desde el programa en VB6, los dos datos que debieran tener rotación 90 me aparecen sin dicha rotación.
Para llevar a cabo la impresión desde VB6 utilizo las instrucciones siguientes:
CRC.ET.ReportFileName = App.Path & "MasterCartonEtq.rpt"
CRC.ET.WindowTitle = "Imprimiendo Master Carton"
CRC.ET.PrinterCopies = 1
CRC.ET.Destination = crptToPrinter
CRC.ET.PrinterName = ""
CRC.ET.PrinterSelect
If CRC.ET.PrinterName <> "" Then CRC.ET.PrintReport
¿Alguien me puede echar una mano con el tema?
Valora esta pregunta
0