Hallo,
hat jemand eine Quelle wo man hierzu etwas nachlesen kann, meine speziell XE2 und Word 2010.
Auf unterschiedlichen Rechnern erhalte ich verschiedene Fehlermeldungen,
OLE Fehler, Server Fehler, usw... auf einigen Rechnern funktioniert es auch.
Ich will in eine bestehende Word Vorlage Felder mit Daten aus der Datenbank ausfüllen und diese entweder nur anzeigen oder gleich ausdrucken.
Zur Zeit mache ich es so:
Delphi-Quellcode:
procedure TFormMain.PrintVorlage(Ausdrucken : Boolean);
var
Dokument : Variant;
AnzahlAusdrucke : Integer;
begin
try
AnzahlAusdrucke := StrToInt(EditPrinterCopy.Text);
except
AnzahlAusdrucke := 1;
end;
try
// Es wird zuerst versucht, eine laufende Word-Instanz zu verwenden
Dokument := GetActiveOleObject('Word.Application');
except
try
// Läuft Word noch nicht, wird eine neue Verbindung aufgebaut
Dokument := CreateOleObject('Word.Application');
except
// Schlägt sie fehl (Word nicht installiert), gibt es eine Fehlermeldung
ShowMessage('Microsoft Word kann nicht gestartet werden !');
exit;
end;
end;
// http://stackoverflow.com/questions/5913665/word-2010-automation-goto-bookmark
//loop that waits for the normal template to load
while Dokument.Templates.Count = 0 do
Sleep(200);
Dokument.Visible := not Ausdrucken;
Dokument.Documents.Add(Template := Anwendungsverzeichnis + 'Vorlage\XYZ.dot');
try
with Datenmodul.UniQueryDataGrid do
begin
Dokument.ActiveDocument.FormFields.Item('Nummer').Result := FieldByName('Nummer').AsString;
Dokument.ActiveDocument.FormFields.Item('Jahreszahl').Result := FieldByName('Jahreszahl').AsString;
// ...
end;
if Ausdrucken then
begin
if not CheckBoxStandarddrucker.Checked
then Dokument.ActivePrinter := ComboBoxPrinter.Text;
// Background := true -> bedeutet, daß das Makro fortgesetzt werden soll, während WinWord druckt.
// Background := false -> setzt dann eben das Makro nicht fort.
Dokument.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);
//Dateien schließen
Dokument.Documents.Close(SaveChanges := 0);
//MSWord schließen
Dokument.Quit;
end;
finally
Dokument := unassigned;
end;
end;
Was wäre hier richtig, mit oder ohne Application? Compilieren lässt sich beides.
Delphi-Quellcode:
Dokument.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);
Dokument.Application.PrintOut(Background := false, Range := 0, Item := 0, Copies := AnzahlAusdrucke, PageType := 0);
Im Quellcode werden folgende Einträge rot unterstrichen: Template, Background, Range, Item, Copies, Pagetype, SaveChanges
Auch das muss man doch anders lösen ?
Habe echt keine Ahnung...