DBGrid Tabelle als pdf speichern/drucken

[omata]

Siehe auch hier und hier.

Gruss
Thorsten

[Tim Henford]

Ich hatte gedacht, das es wie folgt gehen würde, aber scheinbar nicht:

Delphi-Quellcode:

  QR1.Printer.PrinterIndex:= Printer.Printers.IndexOf('PDFCreator');
  QR1.Print;

[omata]

Hallo Tim,

versuch es doch mal so...

Delphi-Quellcode:

const Druckername = 'PDFCreator';
var Printer:TPrinter;
    i, Index:integer;
begin
  Printer:=TPrinter.create;
  try
    Index:=-1;
    for i:=1 to Printer.Printers.Count do
      if pos(lowercase(Druckername), lowercase(Printer.Printers[i-1])) > 0 then
        Index:=i-1;

    if Index >= 0 then begin
      Report.PrinterSettings.PrinterIndex:=Index;
      Report.Print;
    end
    else MessageDlg('Drucker ('+Druckername+') nicht gefunden.', mtError, [mbOK], 0);
  finally
    Printer.free;
  end;
end;

Das eigentliche Problem besteht nur darin, dem Druckertreiber mitzuteilen, in welche Datei er schreiben soll. Mögliche Links dafür habe ich ja oben schon erwähnt.

Gruss
Thorsten