I'm working on a program on Delphi 7, but now I have one thing that I can't do.
I have this components on my program:
PageSetup1 -> Opens PageSetupDialog1
Print1 --------> Opens PrintDialog1 to select your printer and print your text in Memo1.
There is one part of my program's source (I think this helps).
|procedure TForm1.PageSetup1Click(Sender: TObject);|
procedure TForm1.Print1Click(Sender: TObject);
FontH := Printer.Canvas.TextHeight(Memo1.Lines);
Printer.Canvas.TextOut((Printer.PageWidth div 2)-(Printer.Canvas.TextWidth(Memo1.Lines) div 2),0,Memo1.Lines);
for Loop := 1
PageSetup, configures your document's page to print, but when I will print one document (like Adobe PDF), the text will print with no configuration (no borders, no page size,...) and my question is:
There's a way that I can print one document with PageSetup1Dialog's configuration?
I hope you can help me.