こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

EXEL VBAで印刷の指定をしたいのですが

VBA初心者、勉強中です。

sheet1に2つの表がありまして下記のとおりボタンをクリックしたらインプットボックスが立ち上がって2つの表の1か2を指定したら範囲がぷれびゅーするということなんですが、1を入れても、2を入れてもMsgBox "1か2を入力して!しか表示しません。
さんざん調べまくりましたが、どなたかご教授お願いします。

Sub 印刷()
Dim SentP As Integer
On Error Resume Next
SentS = InputBox("どちらを印刷?1売上 2材料")
If SentP = 1 Then
Range("a1:g32").Select
Selection.printpreiew
ElseIf SentP = 2 Then
Range("j1:n41").Select
Selection.PrintPreview
Else
MsgBox "1か2を入力して!"
End If
End Sub

投稿日時 - 2011-10-05 12:40:12

QNo.7052830

困ってます

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

SentS

投稿日時 - 2011-10-05 12:53:36

補足

解答ありがとうございます。
失礼しましたー、あほみたいなミスで。。
しかし、動いたのですが1は動くのですが2を選択すると
MsgBox "1か2を入力して!"になります。
ElseIfにて
SentP = 2 Then
Range("j1:n41").Select
Selection.PrintPreviewとしているのに何処が違うのでしょうか?
宜しくお願いします。

投稿日時 - 2011-10-05 13:04:27

お礼

大変失礼しました。
出来ました。
今度からよく見ます。

投稿日時 - 2011-10-05 13:14:36

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問