|
Que lata...
tenia el informe listo... de la siguiente forma.. para una HP4100 .. y ahora me cambian la impresora a una HP692C.... y sale todo descuadrado.....
BeginDoc;
Canvas.Font.Size:=12;
Canvas.Font.Name:='Arial';
// Imprimo la Primera Fila (2 Columnas )
Canvas.TextOut(0650,750,vNom.Text);
Canvas.TextOut(2500,750,vNom.Text);
Canvas.TextOut(0650,1000,vFic.Text);
Canvas.TextOut(2500,1000,vFic.Text);
Canvas.TextOut(2000,1000,'Dic-'+nAnno);
Canvas.TextOut(3850,1000,'Dic-'+nAnno);
Canvas.TextOut(2050,1250,IntToStr(Cont));
Cont := Cont +1;
Canvas.TextOut(3850,1250,IntToStr(Cont));
Cont := Cont +1;
// Imprimo la Segunda Fila (2 Columnas )
Canvas.TextOut(0650,1950,vNom.Text);
Canvas.TextOut(2500,1950,vNom.Text);
Canvas.TextOut(0650,2200,vFic.Text);
Canvas.TextOut(2500,2200,vFic.Text);
Canvas.TextOut(2000,2200,'Dic-'+nAnno);
Canvas.TextOut(3850,2200,'Dic-'+nAnno);
Canvas.TextOut(2050,2450,IntToStr(Cont));
Cont := Cont +1;
Canvas.TextOut(3850,2450,IntToStr(Cont));
Cont := Cont +1;
// Imprimo la Tercera Fila (2 Columnas )
// Imprimo la Cuarta Fila (2 Columnas )
// Imprimo la Quinta Fila (2 Columnas )
EndDoc;
Que lata que tenga que pegarme nuevamente la tarea de reprogramar esto...
__________________
BlueSteel
|