printing in delphi

Hi,

I have 5 Tedits, memos, captions, listboxes ect... how do i make it so i can click button1 to print the entire form ?

I need everything on the form to be printed on my A4 sheet of paper.
PleskAsked:
Who is Participating?
 
Dagan HooverDeveloperCommented:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21767320.html

{from Delphi help}

procedure Print; virtual;

Description

Call  Print to print  the form. Print  uses the GetFormImage method to obtain a bitmap of the form and draws that to the printer’s HDC.


So:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Print;
  //Or Form1.Print;
end;

Open in new window

0
 
PleskAuthor Commented:
thanks, but for some reason it doesnt print landscape view. I tried it with a website and it does do landscape view then, but not in delphi. Is there code i can add for it to print landscape ?
0
 
PleskAuthor Commented:
Uses printers;

Printer.Orientation := poLandscape;



Sorted, thanks for the first comment.
0
 
PleskAuthor Commented:
great
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.