topic-3769

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Report
Posted: Tue Aug 01, 2006 03:52 PM

Estimados

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 Collapse

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. )

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Report
Posted: Wed Aug 02, 2006 02:41 PM

Hola Patricio

No estaran las areas de impresion de las impresoras, un poco reducidas ?

Tan solo es un comentario :wink:

Saludos

FWH 10.6 + xHarbour + Borland 582

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Report
Posted: Mon Aug 07, 2006 09:10 PM

Estimados

Con FWH 2.4 imprime correctamente en las dos impresoras

Que puede ser, que debo hacer para exportar todo referente a report en five 2.4 a five 2.6

atte
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion