Word aus Delphi drucken

[AgentAS]

Hallo,

keine Ahnung was du meinst mit ShellExecute?

Gruß

Andreas

[Steve]

Hi,

ShellExecute

ShellExecute(handle,'print','c:\test.doc',nil,nil,sw_ShowNormal); Gruß
Stephan

[Robert Marquardt]

SW_HIDE waere wohl besser.

Ich erwarte schon das man wenigstens einen groben Ueberblick ueber die Win32 Funktionen im Kopf hat.
Wer das nicht kann von dem erwarte ich das er faehig ist die Hilfe zu benutzen.
Wer unter Windows programmiert und das PlatformSDK nicht installiert hat der ist selber schuld.

[Steve]

Hi,

sw_hide macht hier keinen unterschied

Gruß
Stephan

[Robert Marquardt]

Ja ich weiss das Word sich hier erst garnicht zeigt, aber auf Details achten kann nie schaden.
Wer weiss was Microsoft als naechstes aendert.

[shmia]

Zitat von AgentAS:

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.

2 Möglichkeiten:
1.) nicht im Hintergrund drucken; dazu gibt es in der Print-Methode den Parameter BackGround (oder so ähnlich)
man kan es auch in den Winword Optionen einstellen, ob im Hintergrund gedruckt werden darf
2.) prüfen, ob im Hintergrund noch gedruckt wird und so lange warten und dann erst Word schliesen
Ich würde die 1. Möglichkeit nehmen.

[Steve]

² Robert: Hm.. bei mir ists genau andersrum: Word zeigt sich immer - SW_HIDE, SW_SHOWNORMAL, direkt ausm Explorer... liegt evtl. an Word 2003 ??

Gruß
Stephan

[toms]

Zitat von 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.
Andreas

if not VarIsEmpty(Word) then
begin
word.DisplayAlerts := 0;
SaveChanges := wdSaveChanges;
word.Quit(SaveChanges, EmptyParam, EmptyParam); {var SaveChanges: OleVariant}
word := Unassigned;
end;

[Robert Marquardt]

Zitat von Steve:

² Robert: Hm.. bei mir ists genau andersrum: Word zeigt sich immer - SW_HIDE, SW_SHOWNORMAL, direkt ausm Explorer... liegt evtl. an Word 2003 ??

Ich habe aus meiner Erinnerung geschoepft, daher kann ich unrecht haben.
Es auf Microsoft zu schieben ist aber selten falsch , daher kann es gut an Word 2003 liegen.
Ich bin nie ueber Word 2000 hinausgekommen (wozu auch).

[AgentAS]

Hallo,

hat funktioniert! Danke euch.

Gruß

Andreas