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
]--------------------------------------------------------
