| |
▼タクロー さん：
こんばんは。
>セルにデータを書き込んでから、範囲印刷すればいけそうな気がしてきました。
>追加で質問なんですが、「通常使うプリンタ」の現在の設定を調べたり、
>別のプリンタを指定したりすることは可能でしょうか？
新規ブックの標準モジュールにて、以下のコードで試してみて下さい。
'========================================================
Sub プリンタtest()
Dim ex As Object
Dim ans As Variant
Set ex = CreateObject("excel.application")
MsgBox "通常使うプリンタ" & ex.ActivePrinter
ex.Quit
Set ex = Nothing
MsgBox "現在設定されてるプリンタ " & ActivePrinter
ans = Application.Dialogs(xlDialogPrinterSetup).Show
If ans = True Then MsgBox "設定プリンタ" & ActivePrinter
End Sub
|
|
ichinose
- 07/12/11(火) 23:11 -
