各位前輩： 如何使用ShellExecute列印一Word檔，並且可指定印表機(不是使用預設的印表機)?敬請指教…感激不盡…

------
~小弟淺見，參考看看~

You can't use ShellExecute in this case, there is no such option:    http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q210/5/65.ASP&NoWebContent=1 Better use OLE/COM.

引言: You can't use ShellExecute in this case, there is no such option: http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q210/5/65.ASP&NoWebContent=1 Better use OLE/COM.

william版主： 小弟不才，看不太懂耶… 小弟有個請求： 您可否舉個例子(寫個Example)給小弟看… 假設在C:\Test.doc的檔案，要用【APF Fax Printer】這一台印表機印該如何用Delphi實現?敬請指教，感激不盡…

var
    Word: TWordApplication;
    vFile: OleVariant;
begin
    vFile := 'c:\test.doc';
    Word := TWordApplication.Create(self);
    try
        Word.ActivePrinter := 'APF Fax Printer';
        Word.Documents.Open(vFile,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam);
        Word.ActiveDocument.PrintOut(EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam);
        while Word.BackgroundPrintingStatus>0 do
            Application.ProcessMessages;
    finally
        Word.Quit;
        Word.Free;
    end;
end;

試試這個 ShellExecute(0,'printto','C:\test.doc','\\freeprt\hp2200',nil,SW_SHOW) ; 當然, 你要先裝 WORD 才能執行列印, 其中 \\freeprt\hp2200 是我的網路列表機(非預設印表機). 你要改成你電腦上的設定才行. ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

引言:

var
    Word: TWordApplication;
    vFile: OleVariant;
begin
    vFile := 'c:\test.doc';
    Word := TWordApplication.Create(self);
    try
        Word.ActivePrinter := 'APF Fax Printer';
        Word.Documents.Open(vFile,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam);
        Word.ActiveDocument.PrintOut(EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam);
        while Word.BackgroundPrintingStatus>0 do
            Application.ProcessMessages;
    finally
        Word.Quit;
        Word.Free;
    end;
end;

william版主： 您的Example小弟試出來了，可以了，感謝版主的解答…阿里阿多

引言: 試試這個 ShellExecute(0,'printto','C:\test.doc','\\freeprt\hp2200',nil,SW_SHOW) ; 當然, 你要先裝 WORD 才能執行列印, 其中 \\freeprt\hp2200 是我的網路列表機(非預設印表機). 你要改成你電腦上的設定才行.

aquarius兄： 您的Example也可以了…感謝您的解答… 不過小弟在試的過程中發現，印表機都一定要是預設印表機，若小弟要使用非預設印表機列印，ShellExecute還是會指向預設印表機… 而使用第二個參數printto一直無法列印，改為print才可執行ShellExecute 小弟是這樣下：(但APF Fax Printer要設為預設印表機才可) ShellExecute(0, 'print', 'C:\test.doc', 'APF Fax Printer', nil, SW_HIDE);