Hay alguna manera de imprimir el contenido de un Listbox

[marcoszorrilla]

Como se trata de un ejemplo no me esmerado mucho, pero ese número que has cambiado sería la separación entre una línea y otra por eso al aumentarlo puedes ver bien el texto.

Para más información consulta la ayuda del objeto Printer.

Puedes cambiar el tipo de letra y tamaño etc...

Código Delphi [-]
  Printer.Canvas.Font.Size:=14;
  Printer.Canvas.Font.Name:='Arial';

Un Saludo.

[ixMike]

Mi código, un poco más completo, está aquí.

Pero igualmente creo que aún tiene un fallo (no sé dónde).

[jhonny]

Si por X o Y razón, decides no usar las opciones que Marcos y ixMike te han proporcionado, también puedes usar el evento OnNeedData del QuickReport, para recorrer tu ListBox e imprimirlo, de esa manera, podrás tener las ventajas que ofrece un reporteador.

[ixMike]

Bueno, lo primero, quería decir que el método que puse lo copié de alguna parte, no recuerdo de donde, el caso es que me funcionó cuando lo copié. Pero eso fue hace años, y ya no recordaba muy bien como era. Lo siento.

El caso es que ese fue de cuando era un muy novato. Ahora que lo soy menos, me he dedicado a ojear un poco el código. Lo que hace es tomar la impresora como la salida de un fichero de texto. En la ayuda de Delphi del método AssignPrn está bien explicado. Seguramente el fallo estaba al utilizar también el objetro Printer (BeginDoc, EndDoc...).

Bueno, aquí van unas líneas sencillas y comentadas, que no deberían fallar:

Código Delphi [-]

uses Printers;

{...}

procedure TfrmMain.mImprimirClick(Sender: TObject);
var
Impresona: TextFile;
n: integer;
begin
AssignPrn(Impresora); //Asigna el archivo de texto Impresora a la impresora por defecto
Rewrite(Impresora); //Abre el archivo para escribir, en este caso imprimir
for n:=0 to ListBox1.Items.Count -1 do //para cada item del ListBox
  WriteLn(Impresora, ListBox.Items[n]); //imprime la línea
CloseFile(Impresora); //Cierra el archivo
end;

Espero haber sido claro, y que funcione.

Saludos.