Druckdialog in QRPreview

[Treffnix]

Nein, nicht QRP.QRPrinter.PrintSetup sondern QRP.Printersetup

Das sollte die Quickreporteigene Druckerauswahl öffnen, wenn ich mich recht erinnere.

Delphi-Quellcode:

Procedure Button....
QRP.Printersetup;
QRP.Print;
End;

oder z.B. so

Delphi-Quellcode:

Procedure XYZ...
var
  i: Integer;
Begin
  i:= Printer.Printers.IndexOf('HPDeskjet870c');   //Unit Printers muss in der uses-clause sein
  QRP.PrinterSettings.UseStandardPrinter := False; // <- bin nicht sicher, ob das nötig ist
  QRP.PrinterSettings.PrinterIndex := i;
  QRP.Print;
End;

Anstatt den Druckerindex hardcodet auszuwählen solltest du das natürlich über Menü oder ähnliches machen. Printer.Printers enthält die Namen aller installierten Drucker. Der Index innerhalb der Stringliste ist gleichbedeutend mit dem Printerindex.