FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Como asignar una impresora
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Como asignar una impresora
Posted: Sat Apr 02, 2022 01:03 AM
Hola hasta hace poco en una rutina usabamos matriz de punto y la clase tdosprn para los remitos y la clase tprinter para facturar en impresoras laser.
Tuvimos que cambiar la forma de imprimir a tprinter. Para eso quiero asignar una impresora exclusiva para los remitos. Hice los siguiente:

Code (fw): Select all Collapse
 聽 SetPrintDefault( AllTrim( oApp:impremito ) )

聽 聽PRINT oPrn NAME "REMITO" ///PREVIEW

聽 聽oPrn:SetPage(10)
聽 聽oPrn:SetCopies(4)

聽etc,etc

聽 聽PAGE


Y funciona correctamente pero el problema es que me setea la impresora como predeterminada. Como hago para que esta impresora se utilize exclusivamente en esta rutina.

Gracias por vuestra atenci贸n
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Como asignar una impresora
Posted: Sat Apr 02, 2022 01:14 AM
Perd贸n por no seguir el hilo en el otro mensaje, pens茅 en hacer otro

Code (fw): Select all Collapse
聽 聽SetPrintDefault( AllTrim( oApp:impremito ) )

聽 聽PRINT oPrn NAME "REMITO" ///PREVIEW

聽 聽oPrn:SetPage(10)
聽 聽oPrn:SetCopies(4)


聽 聽PAGE


聽 聽oPrn:Cmsay( 聽 2.1, 13.4, ( AllTrim(Transform(dfec,"@D" ) ) ), oFont,, RGB( 11,41,90 ) )


聽 聽oPrn:CmSay( 聽7, 3.2, 聽 聽AllTrim( acliente:napea ), oFont,, RGB( 0,0,0 ) )
聽 聽etc, etc



聽 聽ENDPAGE

聽ENDPRINT


y despu茅s del endprint hacer otro SetPrintDefault( AllTrim( oApp:impdefecto ) )

Quer铆a saber vuestra opini贸n o si hay otra forma mas elegante de hacerlo

Luis
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Como asignar una impresora
Posted: Sat Apr 02, 2022 04:27 AM
Surgom:

Intenta retirando el c贸digo
Code (fw): Select all Collapse
聽SetPrintDefault( AllTrim( oApp:impremito ) )


Y modifica el c贸digo siguiente
Code (fw): Select all Collapse
PRINT oPrn NAME "REMITO" TO "El nombre de la impresora deseada"


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Como asignar una impresora
Posted: Sat Apr 02, 2022 09:53 PM

Gracias Armando el lunes lo implemento y comento

Luis

surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Como asignar una impresora
Posted: Tue Apr 05, 2022 08:08 AM

Armando funcion贸 correctamente. Nuevamente Gracias

Luis

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions