Sem tam mne Delphi prekvapí. Neprijde vám ta syntaxe u PrintOut trochu zajímavá? Delphi prý to podporují od verze 2. Myslím, že na poradí ani nezáleží.
if (OpenDialog1.Execute) then begin WinWord := CreateOleObject('Word.Application'); if (not (VarIsEmpty(WinWord))) then begin try WinWord.Visible := false; Docs := WinWord.Documents; Doc := Docs.Open(OpenDialog1.FileName); vFrom := 1; vTo := 2; Doc.PrintOut(Background :=
Weiterlesen...