FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour IMPRIMIR EN 2 IMPRESORAS VALE/INFORME
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
IMPRIMIR EN 2 IMPRESORAS VALE/INFORME
Posted: 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

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: IMPRIMIR EN 2 IMPRESORAS VALE/INFORME
Posted: Wed May 27, 2015 03:38 PM
Intenta asi:

Code (fw): Select all Collapse
        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

Continue the discussion