+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Da listbox a stampante

  1. #1
    Pistone non è in linea Novello
    Post
    1

    Question Da listbox a stampante

    Salve a tutti,

    il mio dilemma è questo:dovrei effettuare la ricerca in un file e metterne il risultato in una listbox per poi stampare il contenuto di essa.
    La ricerca e l'inserimento nella listbox sono riuscito a farlo senza troppi inceppi, il problema è mandare il contenuto alla stampante per poi ovviamente stamparlo.
    Come faccio?? Creo un file excel o altro ?? Aiutatemi non mi ero mai cimentato in quest'impresa!

    (scusate sono nuovo del forum e non essendone molto pratico avrò certamente commesso qualche errore)

  2. #2
    L'avatar di _alka_
    _alka_ non è in linea Very Important Person
    Luogo
    Reggio Emilia
    Post
    1,275
    Hai valutato l'utilizzo di un tool di reporting qualsiasi in Delphi, tipo FastReport, RAVE Reports, QuickReports, ...
    In questo caso, hai molta documentazione ed esempi a disposizione, se fai una ricerca su Google.

    In alternativa, puoi sempre usare l'oggetto Printer (unit Printers) per inviare direttamente gli elementi della ListBox alla stampante.

    Comunque sia, non manderei in stampa la ListBox in quanto tale, se è questo che intendevi fare, perché chiaramente stamperesti il suo aspetto grafico e non vedresti sulla carta gli elementi che sono nascosti (a meno che tu non sia sicuro che il numero non ecceda l'area visibile, ma lascerei perdere comunque questa strada).

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Homepage | Blog | Delphi Podcast | Altri link...

  3. #3
    L'avatar di +m+
    +m+
    +m+ non è in linea Scribacchino
    Post
    922
    Il modo più veloce e triste è usare assignprn su un textfile.
    Eventualmente setta printer.canvas.font per avere un font vagamente leggibile, e
    poi cicla sugli items con writeln().

    E' un approccio stile anni 80, ma funziona

  4. #4
    Axon non è in linea Novello
    Post
    36
    LA cosa più banale per stampare il listbox è la seguente:

    codice:
    uses
      ...
      Printers,
      ...
    procedure ProvaStampa;
    var
    F: TextFile;
    i: integer;
    begin
      AssignPrn(F); { assegna il file di testo alla stampante }
     try
      Rewrite(F); { Occorre usare Rewrite dopo aver usato AssignPrn } 
      for i:=0 to listbox1.items.count-1 do
         WriteLn(F, listbox1.items[i]);
     finally
       CloseFile(F);
     end;
    end;

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi