Al iniciar mi aplicación establezco la impresora con PrinterSetup() y todas las salidas de PRINTER y REPORT van a la impresora establecida. Sin embargo las salidas a impresora de TWord van a la impresora predeterminada ¿Cómo puedo solucionar esto?
Prueba si te funciona lo siguiente:
cImpresora := oWord:ActivePrinter // impresora predeterminada
oWord:ActivePrinter := "hp laser 1220" // (la impresora nueva)
oWord:PrintOut // opcional
oWord:ActivePrinter := cImpresora // al salir
Hola Manuel:
No funciona. Da error. Parece ser que oWord:ActivePrinter no funciona con la clase TWord. Aún así, gracias.
Usando directamente OLE, parece que funciona.
//------------------------------------------------------------------//
Function ConvertToExcelPrinterFriendlyName(cPrinterName, cConector)
local oReg:=TReg32():New( HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices")
cPrinterName:= cPrinterName + " "+ALLTRIM(cConector)+" " + Token(oReg:Get( cPrinterName ),",",2)
oReg:Close()
return cPrinterNameoExcel := NewObjectOle( "Excel" )
oExcel:WorkBooks:Open("C:\Tmp\Planilla.xls")
oExcel:Sheets:Item( 1 ):Select()
oExcel:ActivePrinter:=ConvertToExcelPrinterFriendlyName("PDFCreator", Token(oExcel:ActivePrinter," ",2))