Drucken-Problem!

[AlexanderBrade]

Hallo, ich habe folgendes Problem:
Ich weiß, dass ich mein Formular 1 so drucken kann: form1.print
Aber ich möchte vor dem Drucken die Möglichkeit geben den Drucker auszuwählen bzw. andere Einstellungen(Druckerinterne Dinge wie Paier, Format-->automatisch mit dem Druckerauswahldialog möglich) vorzunehmen! Wie kann ich das realisieren?

[mkinzler]

Schau mal nach TPrinter oder per Windows API

[Die Muhkuh]

TPrintDialog hilft Dir auch weiter.

[AlexanderBrade]

Aber wie rufe ich dieses Dialogfeld auf!(durch einen Button z.B.), sodass danach entsprechend gedruckt wird?

[DeddyH]

Mit PrintDialog.Execute, aber das steht alles in der Hilfe, da muss man auch mal reinschauen.

[AlexanderBrade]

Aber wenn ich das Dialog-Feld aufrufe und dann OK klicke, druckt er noch lange nicht!!!

[Die Muhkuh]

Wie rufst Du es denn auf?

[AlexanderBrade]

Ich rufe es so auf:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;

[mkinzler]

Der PrinterDialog dient ja auch nur den Druckereinstellungen

[DeddyH]

Execute ruft ja auch nur den Dialog auf, Drucken musst Du schon selbst. Außerdem ist Execute eine Funktion.

[AlexanderBrade]

ich kann ja aber nicht einfach Form1.Print hinzufügen, dann druckt er doch ohne die Einstellungen beachtet zu haben oder?
Wie schaffe ich es, dass er beim OK-drücken automatisch druckt?(if-->then????)

[DeddyH]

Delphi-Quellcode:

if PrintDialog1.Execute then
  Print;

[mkinzler]

Der Dialog konfiguriert den Standard-Drucker, wenn du anschliessend druckst, werden die Einstellungen verwendet!

[AlexanderBrade]

Das klappt, vielen Dank! EIne Frage habe ich noch:
Wie schaffe ich es, dass das Formular zentriert ausgedruckt wird(im Moment hängt es links oben in der Ecke!)?

[DeddyH]

Das wirst Du wohl selber berechnen müssen (zumindest wüsste ich nichts Fertiges dafür). Ein Abbild des Formulars bekommst Du mit GetFormImage, Drucken kannst Du auf Printer.Canvas (Unit Printers).