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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Pascal

From novice to tech pro — start learning today.