Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Formato para impresion (https://www.clubdelphi.com/foros/showthread.php?t=30431)

zvf 06-04-2006 01:28:21

Formato para impresion
 
Estoy imprimiendo desde delphi, mando a imprimir variables.
Nada mas que quiero imprimir tabuladores, y quiero que imprima un texto centrado.
¿Como puedo hacerlo?

Para explicarlo mejor, tengo la siguiente linea:
Código Delphi [-]
 writeln(impresora,'*** Cremeria "LA COMADRE" ***');

Y quiero que aparezca centrada en la hoja; y la siguiente linea:

Código Delphi [-]
    writeln(impresora,'Descripcion  Cant   Precio   Importe');

Entre Descripcion y Cant , quiero que haya dos tabuladores, entre Cant y Precio tambien y entre Precio e Importe igual.

Gracias!

roman 06-04-2006 02:08:23

No lo puedo asegurar, pero dado que el código ASCII de un tabulador es #9, posiblemente te sirva:

Código Delphi [-]
writeln(impresora, 'Descripcion'#9#9'Cant'#9#9'Precio'#9#9'Importe');

// Saludos

egostar 06-04-2006 03:51:15

Complementando lo expuesto por Roman prueba este código para centrar un texto, solo que para hacer esto no debes de imprimir con el writeln, debes usar el objeto Printer.

Código Delphi [-]
 
 
// debes de incluir en el uses del form la unidad Printers.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  TextWidth, Centro : Integer;
begin
   with Printer do begin
      BeginDoc;
      TextWidth := Canvas.TextWidth('CADENA DE CARACTERES CENTRADA EN LA HOJA') div 2;
      Centro    := PageWidth div 2;
      Canvas.TextOut( ( Centro - TextWidth),400,'CADENA DE CARACTERES CENTRADA EN LA HOJA');
      EndDoc;
   end;
end;

Espero te ayude.

zvf 06-04-2006 18:02:25

¡¡¡ Gracias!!


La franja horaria es GMT +2. Ahora son las 18:43:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi