Drucker-Setup in Word (OLE)

[phorax]

Hallo, liebe Experten!

Mein Programm soll Word-Dokumente über das OLE-Automatisierungsmodul drucken und vor dem Druckbeginn den WORD (!)-Druckerkonfigurationsdialog anzeigen lassen- Der Code sieht so bisher so aus:

Delphi-Quellcode:

try
  // Versuchen, existierende Word-Instanz zu benutzen
  varWordInstanz := GetActiveOleObject('Word.Application');
except
  try
  // Neue Word-Instanz erstellen
    varWordInstanz := CreateOleObject('Word.Application');
  except
    raise Exception.Create('Word kann nicht geöffnet werden!');
  end;
end;
varWordInstanz.Visible := True;
varWordInstanz.Documents.Add(Template := strDokumentvorlagePfad);

// Hier soll der Dialog aufgerufen werden.

// Dokument drucken
if formHaupt.menAutomatischDrucken.Checked then
  varWordInstanz.ActiveDocument.PrintOut(False);
// Dokument schließen
if formHaupt.menAutomatischSchliessen.Checked then
  varWordInstanz.ActiveDocument.Close(0);

Bitte helft mir weiter!

[omata]

Delphi-Quellcode:

varWordInstanz.Dialogs.Item(88).Show(EmptyParam);

oder auch...

Delphi-Quellcode:

varWordInstanz.Dialogs.Item(97).Show(EmptyParam);

[phorax]

Das funktioniert super! Danke! :hello:

Gibt es eigentlich eine Möglichkeit, einen Rückgabewert dieses Dialogs auszuwerten, z. B. um festzustellen, ob der Benutzer auf "Abbrechen" statt auf "Drucken" geklickt hat (ähnlich wie bei TPrintDialog.Execute)?

[omata]

Delphi-Quellcode:

if varWordInstanz.Dialogs.Item(88).Show(EmptyParam) <> 0 then
  ShowMessage('ok')
else
  ShowMessage('abbruch');