如主題，在Ole Excel如何選用不同印表機列印
公司在作業上會有兩種報表產生，一種是點陣式(中二刀)，一種是雷射印表機(A4)
不同的結果需要選用不同印表機列印，有找過相關資料，Ole似乎沒有可以設定印表機的語法

有何辦法可以依照不同格式去選用不同印表機列印？

請參考
https://msdn.microsoft.com/zh-tw/library/office/Ff838253.aspx

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

抱歉，資質太淺，VBA語法我不會翻C++ Ole
能給點範例參考參考嗎...

使用者的電腦上自己可以搜尋得到所有已安裝的印表機名稱，唯獨不會怎麼更換印表機

===================引 用 sryang 文 章===================
請參考
https://msdn.microsoft.com/zh-tw/library/office/Ff838253.aspx

用 「Sheets.PrintOut C++」去 google，定可找到些線索
問題解決之後還請記得回來分享

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

[code cpp]
//引入標頭檔
#include "Printers.hpp"

TPrinter *Printers = Printer();
AnsiString PrintName[100];

for(int i=0;i < Printers->Printers->Count; i )
{
if (i <= 9)
{
PrintName[i] = Printer()->Printers->Strings[i] " on Ne0" IntToStr(i) ":";
}
else if (i > 9)
{
PrintName[i] = Printer()->Printers->Strings[i] " on Ne" IntToStr(i) ":";
}
}

// 建立一個可見的 Excel 物件
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true); // 設為 false 則不可見
//bIsCreated=false;

// 產生 workbooks 跟 workbook 物件.
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add",6);

// 產生 worksheets 跟 worksheet 物件.
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OlePropertyGet("Item", 1);

Excel.OlePropertySet("ActivePrinter",PrintName[int].c_str()); //設定印表機
[/code]

Google大師幾乎找不到資料，我完全是土法煉鋼...
在C 搜到的Printer Name 是沒有阜號的，要自己加
上述是完全使用BCB的方法(方法一)。

方法二：(簡單說明，就不附上語法了)
在EXCEL 的 ActiveWorkBook 事件語法加上切換印表機的語法
在EXCEL 的 CloseWorkBook 事件語法加上切回印表機的語法
PS.以上VBA巨集安全性要更改才能使用
當然VBA的相關語法教容易找到