Imprimir en cierta posición con el Canvas

[[BlueSteel]]

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