Thema: Delphi Word aus Delphi drucken

Einzelnen Beitrag anzeigen

Benutzerbild von AgentAS
AgentAS

Registriert seit: 14. Jul 2003
Ort: Reutlingen
88 Beiträge
 
Delphi 6 Professional
 
#1

Word aus Delphi drucken

  Alt 25. Jan 2005, 09:46
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
Nichts wissen ist auch eine Art Wissen.
  Mit Zitat antworten Zitat