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.

zusammenfalten · markieren

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

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

Hallo,

bedanke mich. Hat funktioniert.

Gruß

Andreas

Hallo,

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

markieren

Delphi-Quellcode:

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

bringt er mir eine Fehlermeldung!

Gruß

Andreas

die Fehlermeldung lautet

Documents ist keine Methode

was ich aber nicht verstehe

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

Hi

Zitat von AgentAS:

Hallo,
  word.Documents("Report.doc").Close; bringt er mir eine Fehlermeldung!

ich hab zwar bis jetzt nur mit Excel gearbeitet aber ich denke mal
word.Documents['Report.doc'].Close; Wird besser funktionieren... das was du geschrieben hast sieht mehr nach VB-Syntax aus!

Greetz
Boombuler

Zitat von AgentAS:

markieren

Delphi-Quellcode:

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

Warum so kompliziert?

markieren

Delphi-Quellcode:

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

Hallo,

@toms hat auch soweit funktioniert.

markieren

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

Versuchs doch mit ShellExecute.