Word aus Delphi drucken

[AgentAS]

Hallo zusammen,

möchte gerne Word aus Delphi heraus drucken können, ohne in Word den Druckenbutton zu betätigen, oder Word zu starten!
Hier der Quellcode.

Delphi-Quellcode:

try 
      word := CreateOleObject('Word.Application'); 
    except 
      ShowMessage('Word konnte nicht gestartet werden!'); 
    end; 
    
    word.Visible := True; 
    word.Documents.Open(FileName := ExtractFilePath(ParamStr(0)) + 'BEGLEITSCHREIBEN-   RECHTSANWALT.doc'); 

    word.ActiveDocument.FormFields.Item('Name').Result := CBRechtsA.Text; 
    word.ActiveDocument.FormFields.Item('Strasse').Result := EditRechtsAStrasse.Text; 
    word.ActiveDocument.FormFields.Item('Plz').Result := EditRechtsAPLZ.Text; 
    word.ActiveDocument.FormFields.Item('Ort').Result := EditRechtsAOrt.Text; 
    word.ActiveDocument.FormFields.Item('Datum').Result := DatetoStr(Date); 
    word.ActiveDocument.FormFields.Item('Mandant').Result := EditVName.Text + ' ' + EditName.Text; 
    word.ActiveDocument.FormFields.Item('GaNr').Result := EditGaNr.Text;

Hab schon in der Hilfe geschaut finde aber nichts.

Gruß

Andreas

[Bernhard Geyer]

Zitat:

Zitat von AgentAS

Hab schon in der Hilfe geschaut finde aber nichts.

In der Delphi-Hilfe wirst Du auch nichts finden.
Für die Beschreibung ist der Hersteller der COM-Komponenten (hier MS) zuständig, und man wird auch in der MSDN fündig

[AgentAS]

Hallo,

bedanke mich. Hat funktioniert.

Gruß

Andreas

[AgentAS]

Hallo,

hab da aber noch ein Problem. Ich will das Word nach dem drucken sofort geschlossen wird.
Wenn ich aber wie folgt vorgehe

Delphi-Quellcode:

  word.Documents("Report.doc").Close;
  SaveChanges:=wdDoNotSaveChanges;

bringt er mir eine Fehlermeldung!

Gruß

Andreas

[AgentAS]

die Fehlermeldung lautet

Documents ist keine Methode

was ich aber nicht verstehe :(

[Robert Marquardt]

Probier es doch mit ShellExecute und dem Verb 'print' statt dem ueblichen 'open'.

[Boombuler]

Hi

Zitat:

Zitat von AgentAS

Hallo,

Delphi-Quellcode:

  word.Documents("Report.doc").Close;

bringt er mir eine Fehlermeldung!

ich hab zwar bis jetzt nur mit Excel gearbeitet aber ich denke mal

Delphi-Quellcode:

word.Documents['Report.doc'].Close;

Wird besser funktionieren... das was du geschrieben hast sieht mehr nach VB-Syntax aus!

Greetz
Boombuler

[toms]

Zitat:

Zitat von AgentAS

Delphi-Quellcode:

  word.Documents("Report.doc").Close;
  SaveChanges:=wdDoNotSaveChanges;

Warum so kompliziert?

Delphi-Quellcode:

if not VarIsEmpty(Word) then
  begin
    Word.DisplayAlerts := 0;
    Word.Quit;
    Word:= Unassigned;
  end;

[AgentAS]

Hallo,

@toms hat auch soweit funktioniert.

Delphi-Quellcode:

word.ActiveDocument.PrintOut;

if not VarIsEmpty(Word) then
begin
  word.DisplayAlerts := 0;
  word.Quit;
  word := Unassigned;
end;

Doch jetzt bringt er mir dauernd, dass er das Word Dokument speichern will. Dies kann man umgehen wenn man vorher die Methode word.ActiveDocument.close nutzt. Aber hier bringt er dann die Meldung, dass Word gerade beim drucken ist und dass beim abbrechen die Daten flöten gehen.
Ich will das Word automatisch gestartet wird, druckt und wieder schliesst, ohne irgend welche Meldungen. Kenne mich in VB leider nicht aus :(

Gruß

Andreas

[Robert Marquardt]

Versuchs doch mit ShellExecute.