Impresoras y TWord

[Manuel Aranda]

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?

[Manuel Valdenebro]

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

[Manuel Aranda]

Hola Manuel:

No funciona. Da error. Parece ser que oWord:ActivePrinter no funciona con la clase TWord. Aún así, gracias.

[Manuel Valdenebro]

Usando directamente OLE, parece que funciona.

[RSalazarU]

Para resolver este problema y buscando en Google escribí la siguiente funcion:

Code: Select all  Expand view

//------------------------------------------------------------------//
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 cPrinterName
 

y para llamarlo

Code: Select all  Expand view

oExcel := NewObjectOle( "Excel" )

oExcel:WorkBooks:Open("C:\Tmp\Planilla.xls")

oExcel:Sheets:Item( 1 ):Select()

oExcel:ActivePrinter:=ConvertToExcelPrinterFriendlyName("PDFCreator", Token(oExcel:ActivePrinter," ",2))
 

Recuerde tambien de colocar en el lugar correcto la instruccion, ya que si se lo coloca despues de la creacion del objeto oExcel, da error.
Debe ser colocado despues de abrir una hoja electronica.

Ah y el parametro <cConector> es para diferenciar el idioma de excel, ya que puede ser " en ", " on ", etc.

Atentamente,


Rolando Salazar U.
SAURO SOFTWARE SRL.
Email: SauroSrl@entelnet.bo
MSN: SauroSrl@hotmail.com
Cochabamba - Bolivia

PD.
No se olvide visitar la pagina de Sauro Srl. WWW.SAURO-SYS.COM
Descargue los programas y haga una prueba, y si le sirven ….. compre una licencia…