Hai Karstadt,
es wurde wohl einiges in der 3.x geändert. Ich habe mir die jetzt mal schnell installiert und mir dieses Beispiel gebaut:
Delphi-Quellcode:
uses
Printers;
procedure TDemoForm.FormCreate(Sender: TObject);
var
ndx: Integer;
begin
for ndx := 0 to Printer.Printers.Count - 1 do // Alle installierten Drucker
begin
ComboBox1.Items.Add(Printer.Printers[ndx]); // in einer ComboBox auflisten
end;
end;
procedure TDemoForm.Button1Click(Sender: TObject);
begin
with frxReport1 do
begin
PrintOptions.Printer := ComboBox1.Text; // Als Drucker den aus der ComboBox nehmen.
PrintOptions.ShowDialog := FALSE; // Kein Dialog notwendig
PrepareReport(); // Vorbereiten
Print; // und weg damit
end;
end;