| |
こんにちは。
>印刷開始ページは、必ず１ページからとするのであれば、以下のような感じになります。
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とキャンセルを指定出来るようになりますか？
よろしくお願いいたします。
|
|
あき
- 05/8/14(日) 12:05 -
