Tengo dos impresoras laser, un Brother HL-5140 y Canon iR1200-1300
El mismo reporte para las dos impresoras?
En la canon no me salen los totales al final de la hoja y esta configurada para que imprima en carta
La impresorsa brother corta los numeros de la ultima columna
a que de debe esta anomalia, alguna solucion que pueda optar
Fwh2.6, xHarbour 0.99.50
Aqui dejo la funcion que utilizo
Code: Select all
Function PrnLibroCmp(oLbx, aGet)
local oReport, oFont1, oFont2, dFec, nRegi := Docu_Ent->(RECNO())
dFec := cTod( "01/"+str(aGet[1,2],2) + "/" + str(aGet[2,2],4 ) )
Docu_Ent->( dbGotop() )
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-8
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-8 BOLD ITALIC
PrinterSetup( oLbx )
REPORT oReport TITLE "*** Facturas de Compra ***",;
" ",;
cMonth(dFec) + "/"+Str(aGet[2,2],4) ;
;
FONT oFont1,oFont2 ;
HEADER "Fecha: "+dtoc(DateAds()),;
"Hora: "+TimeAds() ;
RIGHT ;
FOOTER "Pág.:"+str(oReport:nPage,3);
PREVIEW
COLUMN TITLE "Día" DATA day(Docu_Ent->Fec_Emi) FONT 1 PICTURE "99"
COLUMN TITLE "Factura #" DATA Docu_Ent->Num_Doc FONT 1 PICTURE "9999999999"
COLUMN TITLE "Rut", "Proveedor" DATA iif(Docu_Ent->Anulada, "**ANULADA**",Docu_Ent->Rut_Pro) FONT 1 PICTURE "@!"
COLUMN TITLE "Nombre", "Proveedor" DATA iif(Docu_Ent->Anulada, "**ANULADA**",;
(Proveedo->( dbSeek( Docu_Ent->Rut_Pro ) ), Proveedo->Nom_Pro)) FONT 1 PICTURE "@!"
COLUMN TITLE "Neto" DATA iif(Docu_Ent->Anulada, 0, Docu_Ent->Tot_Net ) FONT 2 PICTURE "@E 999,999,999" TOTAL
COLUMN TITLE "Iva" DATA iif(Docu_Ent->Anulada, 0, Docu_Ent->Tot_Iva ) FONT 2 PICTURE "@E 999,999,999" TOTAL
COLUMN TITLE "Total" DATA iif(Docu_Ent->Anulada, 0, Docu_Ent->Total ) FONT 2 PICTURE "@E 999,999,999" TOTAL
END REPORT
oReport:bSkip := { || Docu_Ent->( dbSkip() ) }
oReport:cName := "Sistema Win-Invent"
oReport:oDevice:cDocument := "Control de impresión"
ACTIVATE REPORT oReport ;
ON STARTPAGE PrnEmpresa(oReport ) ;
ON STARTGROUP oReport:NewLine() ;
WHILE Docu_Ent->( !Eof() )
Docu_Ent->( dbGoto( nRegi ) )
oLbx:Gotop():Refresh()
oFont1:End()
oFont2:End()
return( .t. )Patricio
