vložil Radek Červinka
22. ledna 2019 00:14
Sem tam mne Delphi překvapí. Nepřijde vám ta syntaxe u PrintOut trochu zajímavá?
Delphi prý to podporují od verze 2. Myslím, že na pořadí 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 := false, Append := false, Range := wdPrintFromTo, OutputFileName := EmptyParam, From := vFrom, To := vTo);
// err
finally
WinWord.Quit;
end;
end;
Jen pro připomenutí - PrintOut má mnoho parametrů - word.document.printout
0796f7bc-4760-4f9e-8c8a-4df17940fdf9|10|5.0
Tagy:
Praxe
RSS