VFP 愛用者社區

lelhappy · 註冊時間: 2004-06-04 文章: 20 第 1 樓

請問各位先進:

在 EXCEL 錄製巨集, 可得知
Application.ActivePrinter = "自動 FS 上的 Epson LQ-1070C 在 Ne02:"

但是在 VFP 如何得知所有的 printer 之資料, 如:

xls(1)="自動 PC 上的 HP DeskJet 930C/932C/935C 在 Ne00:"
xls(2)="自動 LYR 上的 Epson Stylus COLOR 680 ESC/P 2 在 Ne01:"
xls(3)="自動 FS 上的 Epson LQ-1070C 在 Ne02:"

在前面的printer "自動 FS 上的 Epson LQ-1070C" 可用=aprinters(xls) 得知
? xls(1,1) && 自動 FS 上的 Epson LQ-1070C
? xls(2,1) && \\FS\Epson LQ-1070C
但不知是否有什麼函數或API可得知 "Ne02:"

yinlin

syntech · 發表於: 星期五六月 18, 2004 5:15 pm 文章主題:

很怪!?
既然知道 aprinters() ,
應該也知道 ALEN() 可以計算array 中有幾個 element,
不就能找出所有的 printer name 嗎?

lelhappy · 註冊時間: 2004-06-04 文章: 20 第 3 樓

elleryq · 註冊時間: 2007-06-21 文章: 768 第 4 樓

這是 DOS 在用的裝置名
我想可能是因為 VFP 用不到,所以就沒抓這部份的資訊.

lelhappy · 註冊時間: 2004-06-04 文章: 20 第 5 樓

找到了....

"hkey_local_machine\System\ControlSet001\Control\Print\Printers\"
底下的各列表機機碼及 "Port" 的值,即 aprinters() 所抓的值.
Excel 在 WINDOWS 98 所抓的值
.ActivePrinter = "自動 FS 上的 Epson LQ-1070C 在 \\FS\Epson LQ-1070C"
也是在這抓的吧,因為值一樣.
但 Excel 在 WINDOWS XP和 2000 所抓的值
.ActivePrinter = "自動 FS 上的 Epson LQ-1070C 在 Ne02:"
"在" 之後的 "Ne02:"值,並不是在
"hkey_local_machine\System\ControlSet001\Control\Print\Printers\自動 FS 上的 Epson LQ-1070C"
底下 "Port" 的值,而是在
"hkey_current_user\Software\Microsoft\Windows NT\CurrentVersion\Devices"
底下 "自動 FS 上的 Epson LQ-1070C" 的值 "winspool,Ne02:"

終於可以設定 .ActivePrinter = "自動 FS 上的 Epson LQ-1070C 在 Ne02:" 了,
謝謝各位大哥, 另我在
http://210.241.239.58/af/form/records.aspx?class_id=forum_vfp_guest&runtime_criteria=source_thread_id~20040616213904018584
有問及 VFP 在 windows 98 的環境,設定 Excel 的紙張大小 "使用者定義大小:"
.ActiveSheet.PageSetup.PaperSize = 256 會出現下列錯誤訊息

OLE IDispatch 異常碼 0 出自 Microsoft Excel: 無法設定種類 PageSetup 的 PaperSize 屬性

看有沒有其他方法可設定紙張大小,或控制 Excel 的列印,感恩哦