IMPRIMIR EN 2 IMPRESORAS VALE/INFORME

IMPRIMIR EN 2 IMPRESORAS VALE/INFORME

Postby jbrita » Wed May 27, 2015 12:42 pm

Hola amigos, una consulta.
resulta que tengo 2 impresoras instalada una Epson miniPrinter y otra hp para imprimir informes, esta ultima la tengo predeterminada para los informes.
resulta que cuando imprimo un informe me lo muestra perfecto en tamaño carta. luego imprimo un vale en la impresora miniprinter de esta manera.

print oprint title "Impresion de Ticket " to "MINI EPSON"
if Empty( oPrInT:hDC )
return nil
endif

DEFINE FONT aFon2 NAME "COURIER NEW" SIZE 0,14 BOLD OF oPRINT
page
PAG:=1
Oprint:Cmsay(1.0,.2,"FERROPUERTO DE SONORA, ",AFON2)

EndPage
endprint
return nil

Tambien imprime perfecto, pero luego de imprimir el vale voy a ver el informe diario y me sale mal en tamaño miniprinter. ese es mi PROBLEMA

Saudos
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Re: IMPRIMIR EN 2 IMPRESORAS VALE/INFORME

Postby karinha » Wed May 27, 2015 3:38 pm

Intenta asi:

Code: Select all  Expand view

        ResLinea := oPrn:nLogPixely()/2.54
        ResColun := oPrn:nLogPixelx()/2.54

        page

        PAG:=1

           Oprint:Cmsay( 1.0 * ResLinea, .2 * ResColun, "FERROPUERTO DE SONORA, ",AFON2)

        EndPage

        endprint
 


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7824
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 74 guests