Drucker auswählen mit PrinterIndex

[Luckie]

Ich lese aus einer Ini-Datei einen Drucker aus und will auf ihn drucken:

Delphi-Quellcode:

with FPrinter do
    begin
      // Druckjob starten
      PrinterIndex := Printers.IndexOf(FPrinterName);
      BeginDoc;

Setze ich den PrinterIndex vor BeginDoc, wie oben, dann bekomme ich die Exception:

Zitat:

'Printer is not currently printing'

Setze ich den PrinterIndex nach BeginDoc bekomme ich die Exception

Zitat:

'Printing in progress'

Kann mir mal bitte jemand verraten wann ich denn dann den Drucker auswählen soll? Ich bin etwas ratlos ehrlich gesagt. Irgendwie muss ich was vom Prinzip her falsch machen.

FPrinter ist vom Typ TPrinter aus der Unit Printers. Udn wird im Konstruktor der Klasse so
FPrinter := TPrinter.Create; erzeugt. Der obige Codeauszug stammt aus meiner Methode TPrintDoc.Print. Davor passiert eigentlich nichts.

[Hansa]

Mal sehen, wie ich das mache. So :

Delphi-Quellcode:

  Ini := TIniFile.Create (ExtractFilePath (ParamStr (0)) + 'CONST.INI');;
  (*$IFNDEF DEMO*)
    if dlgDrucker.Execute then begin
      if MessageBox(Self.Handle, 'Drucker standardmäßig für Programm benutzen ?',
                    'Information', MB_ICONINFORMATION or MB_YESNOCANCEL) = idYes then begin
        DruckerName := Printer.Printers [Printer.PrinterIndex];
        Ini.WriteString('Standardvorgaben','Windows - Drucker',DruckerName);
        showmessage ('aktiver Drucker ab jetzt : ' + DruckerName);
      end;
    end;
  (*$ELSE*)
    showmessage ('Demo - Version : Drucker ist immer Windows - Standardrucker !');
    DruckerName := GetDefaultPrinter;
    DruckerDateiName := 'STANDARD.INI';
    Ini.WriteString('Standardvorgaben','Drucker - Dateiname',DruckerDateiName);
  (*$ENDIF*)
  Ini.Free;
  sbDrucker.SimpleText := 'Drucker : ' + DruckerName;

Quelltext dürfte wohl klar sein.

[Elfriede]

Zitat von Luckie:

FPrinter ist vom Typ TPrinter aus der Unit Printers. Udn wird im Konstruktor der Klasse so
FPrinter := TPrinter.Create; erzeugt. Der obige Codeauszug stammt aus meiner Methode TPrintDoc.Print. Davor passiert eigentlich nichts.

Da war doch was .... niemals ein TPrinter selbst erzeugen, sondern immer aus der Unit Printers über die Funktion Printer() geben lassen.

Aus der Delphi-Hilfe:

Zitat:

Obtain an instance of TPrinter by calling the Printer function in the Printers unit.

[Luckie]

@Elfriede: Das wars. Habe ich mittlerweile auch rausgefunden. Aber Danke denn noch.