Ver Mensaje Individual
  #2  
Antiguo 10-11-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.440
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Una cosa sencilla que puedes hacer es utilizar un componente TRichEdit (similar a un TMemo) para rellenar el texto tal como quieres que aparezca.
Una vez que lo tengas basta con que llames al método Print (que posee el Richedit); De esta forma te olvidas de pelear con la impresora.

Algo así:

Código Delphi [-]
// Lineas y precios
for n:=0 to dbListBox2.Items.Count -1 do begin
  richedit.Lines.Add(dbListBox2.Items[n] + '   ' + dblistbox1.Items[n]);  
end;
// Total
richedit.Lines.Add('Total: ' + lblTotal.Caption);
// Efectivo
richedit.Lines.Add('Efectivo: ' + edtEfectivo.Text);
//...

// Imprimir
richedit.Print;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita