OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

VBAで印刷する前にプリンターの設定を変更する方法

  • すぐに回答を!
  • 質問No.200361
  • 閲覧数1327
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 52% (151/290)

○シート1の印刷ボタンで印刷するとシート1及びシート2が印刷されます。
 シート2だけを印刷するには、どうしたらよいのですか。
 
○現状
 ・シート2は非表示
 ・シート1に印刷ボタン(下記のVBAをマクロ登録済)
----------------------------------------------------------------------
Sub printappointedrange()

Dim ws As Worksheet 'ワークシート
Dim PrintFlg As Boolean '印刷するかの判定

On Error GoTo ErrorHandler 'エラー対応(非表示シート対応)

Application.Dialogs(xlDialogPrint).Show 'プリンタ設定
Application.ScreenUpdating = False '画面更新ストップ

For Each ws In Worksheets '全てのシートを調べる
With ws
Select Case .Name
Case "シート2"
.PageSetup.PrintArea = "A1:AB42" '印刷範囲の指定
.PrintOut '印刷
.PageSetup.PrintArea = "" '印刷範囲クリア
End Select
End With
Next
Exit Sub '終わり

ErrorHandler:
'シートが非表示の場合
If Err = 1004 Then
ws.Visible = True '表示する
ws.PrintOut
ws.Visible = False '非表示に戻す
End If
Resume Next '次の処理
End Sub
--------------------------------------------------------------------
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

http://www.okweb.ne.jp/kotaeru.php3?q=196084

に回答しておきました。

別の質問の回答を利用されているようですが、処理内容をみて、簡単にしてあります。

ご参考に。
お礼コメント
m-happy-t

お礼率 52% (151/290)

・回答が帰って着ないので、新しく質問をさせてもらいましたが、覚えていてくれたので助かりました。
・nishi6さんには、いろんな質問の回答を何回もいただきありがとうございました。
・これからも、よろしくお願いします。
投稿日時 - 2002-01-18 12:34:17
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ