Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-04-2006
zvf zvf is offline
Miembro
 
Registrado: abr 2006
Posts: 158
Poder: 19
zvf Va por buen camino
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!
Responder Con Cita
  #2  
Antiguo 06-04-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #3  
Antiguo 06-04-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
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.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 06-04-2006 a las 03:53:40.
Responder Con Cita
  #4  
Antiguo 06-04-2006
zvf zvf is offline
Miembro
 
Registrado: abr 2006
Posts: 158
Poder: 19
zvf Va por buen camino
¡¡¡ Gracias!!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
hay alguna utilería para abrir Quick Reports para una posterior impresión? akela Impresión 3 30-01-2006 21:40:42
Dar formato al texto en una impresion normal JuanchoArg Impresión 1 04-11-2005 21:16:58
Como Obviar el formato de Fecha del Servidor para Salvar sólo en formato "dd/mm/yyyy" R_Richards Varios 4 07-02-2005 15:57:19
Formato para impresion de cantidades numericas Ricsato Varios 3 10-09-2004 23:55:08
Dar formato a la impresión... Tanix Impresión 1 20-01-2004 14:20:40


La franja horaria es GMT +2. Ahora son las 22:29:22.


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