Imprimir PDF con HMG 3.0.46
Posted: Thu May 29, 2014 3:48 pm
Saludos amigos,
Puedo imprimir un .PDF directamente a la impresora con HMG 3.0.46 ? Me interesa imprimirlo directamente a la impresora sin pre-visualizarlo.
Actualmente sé que puedo hacer esto :
En el caso de imagenes .jpg simplemente quito el PREVIEW y ya está. Pero no sé como hacer para una impresión directa con un .PDF
Recuerden por favor que estoy usando HMG 3.0.46
Mil gracias por su gentil ayuda.
Att
Puedo imprimir un .PDF directamente a la impresora con HMG 3.0.46 ? Me interesa imprimirlo directamente a la impresora sin pre-visualizarlo.
Actualmente sé que puedo hacer esto :
Code: Select all
* ------------------------------------------------------ *
PROC ProtocoloMostrarPDF
PARA cArchivo
DEFINE WINDOW Win_ShowPDF ;
AT 0,0 ;
WIDTH 900 ;
HEIGHT 700 ;
TITLE 'Protocolo PDF' ;
CHILD ;
ON INIT PdfIniciar()
DEFINE ACTIVEX XPdf
ROW 10
COL 50
WIDTH 800
HEIGHT 650
PROGID "AcroPDF.PDF.1"
END ACTIVEX
END WINDOW
Center Window Win_ShowPDF
Activate Window Win_ShowPDF
RETURN
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
PROC PdfIniciar()
Win_ShowPDF.XPdf.Object:src := cPathJpgs+cArchivo
Return
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
*-------------------------------------------------------------------------
PROC ProtocoloMostrarJpg
PARA cQueFile
Local i
// Measure Units Are Millimeters
cQueFile := '\\Serverfiles\publica\Protocolos\Protocolos\'+cQueFile
SELECT PRINTER DEFAULT ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_A4 ;
QUALITY PRINTER_RES_HIGH ;
PREVIEW
START PRINTDOC
START PRINTPAGE
@ 10,10 PRINT IMAGE cQueFile ;
WIDTH 160 ;
HEIGHT 280
END PRINTPAGE
END PRINTDOC
RETURN
Recuerden por favor que estoy usando HMG 3.0.46
Mil gracias por su gentil ayuda.
Att
]--------------------------------------------------------