|
▼タクロー さん:
こんばんは。
>セルにデータを書き込んでから、範囲印刷すればいけそうな気がしてきました。
>追加で質問なんですが、「通常使うプリンタ」の現在の設定を調べたり、
>別のプリンタを指定したりすることは可能でしょうか?
新規ブックの標準モジュールにて、以下のコードで試してみて下さい。
'========================================================
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
|
|