Posicionar hoja antes de imprimir.

[solemno]

Ok, pruebo y luego te cuento

[solemno]

Intente con lo siguiente pero no pasa nada... alguna sugerencia?

Código Delphi [-]
Procedure TForm1.PWrite(s:String);
var PT :Integer;
     P   :Pchar;
Begin
   PT := FileOpen('lpt1',fmOpenWrite ); // Abrimos la impresora como un archivo
   P   := PChar( s ); //convertimos la  cadena a un PChar
   FileWrite(PT,P^,length( s )); //escribimos a la impresora
   FileClose(PT);//cerrar el archivo de la impresora
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     PWrite(#11);//intenté con diferentes pero no hace nada
end;

[[BlueSteel]]

Hola solemno

Eso lo solia hacer con clipper, pero debes conocer los codigos de escape de la impresora...

No todas las impresoras trabajan igual.... cada una tiene un codigo para avanzar o retroceder una pagina, avanzar o retroceder una linea...

Te recomiendo que busques los codigos de esc de dicha impresora...

hasta el momento solo he econtrado esto

Para poder imprimir caracteres especiales, no debes imprimir con "Printer",
si no debes hacerlo con lo siguiente:

Open "LPT1" For output as #1
Print #1, chr$(27) & chr$(15) & "Letra Chica"
Print #1, chr$(27) & chr$(18) & "Letra Normal"
Print #1, chr$(27) & chr$(15) & "Letra Grande"
Close #1

El puerto LPT1, asume la impresora que está conectada directamente y no en
red, si necesitas imprimir en la red, en el nombre del archivos debes
indicar el servidor o estación de trabajo y el nombre de la impresora,
ejemplo : "\\SERVIDOR01\EPSON3".

salu2

[[coso]]

Bueno, puedes imprimir con la variable printer tambien. Existe por el foro una unidad llamada URaw que permite tratar la impresora muy directamente, pudiendole enviar los caracteres de control q necesites tal cual.

[[coso]]

PWrite(#11);//intenté con diferentes pero no hace nada

lo mejor sera que encuentres alguna lista de los codigos de impresion de esa impresora