|
こんにちは。
>印刷開始ページは、必ず1ページからとするのであれば、以下のような感じになります。
1ページです。説明不足ですいません。
>Option Explicit
>Sub Macro1()
> Dim TotalPage As Integer
> Dim ToPage As String
>
> 'アクティブシートの総ページ数を取得
> TotalPage = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
> '印刷終了ページの指定(エラー処理あり)
> Do
> ToPage = InputBox("終了ページは?", , TotalPage)
> '何も入力しなかった場合、または、キャンセルを押した場合は、処理終了
> If ToPage = "" Then Exit Sub
> If IsNumeric(ToPage) Then
> '終了ページは、1以上の整数(小数点は不可)
> If Val(ToPage) >= 1 And Val(ToPage) - Int(Val(ToPage)) = 0 Then
> Exit Do
> Else
> MsgBox "終了ページは、1以上の整数を入力してください。"
> End If
> Else
> MsgBox "数字で入力してください。"
> End If
> Loop
> '確認メッセージ
> MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
> '印刷実行
> ActiveSheet.PrintOut From:=1, To:=Val(ToPage)
>End Sub
とてもうまくいきました。
自分ではこんなマクロくれません。
度々ありがとうございます。
あとひとつお願いがあるのですが・・・
> '確認メッセージ
> MsgBox "1ページから" & Val(ToPage) & "ページを印刷します"
> '印刷実行
ココの部分のメッセージボックスで、OKとキャンセルを指定出来るようになりますか?
よろしくお願いいたします。
|
|