Sub Print_Out_1() 'セルに値を設定しながら連続印刷する。印刷対象:アクティブシート
ActiveSheet.PageSetup.PaperSize = xlPaperB5
ActiveSheet.Unprotect Password:="0630"
ActiveSheet.PageSetup.PrintArea = "B11:O30"
'定数
Const conStart As Long = 1 '開始
Const conEnd As Long = 25 '終了
Const conStep As Long = 1 '間隔
Const conCell As String = "K7" 'セル番地
'変数
Dim i As Long
With Application
' .ScreenUpdating = False
With .ActiveSheet.Range(conCell)
For i = conStart To conEnd Step conStep
.Value = i
ActiveSheet.PrintOut
Next
End With
.ScreenUpdating = True
End With
MsgBox "印刷が完了しました。"
ActiveSheet.PageSetup.PrintArea = False
ActiveSheet.Protect Password:="0630"
End Sub
こちらのコードがあります。セルのK7に枚数を入れて印刷をしたいのですが、どう変更してもなりません。素人で、まったくわからず申し訳ないのですが教えて頂けないでしょうか・・・
No.2ベストアンサー
- 回答日時:
そういうことですよね・・・コードをよく見てませんで失礼しました。
下のコードではどうなりますか?(K7が空や数字以外の場合は0枚となります。)
Sub Print_Out_1()
'セルに値を設定しながら連続印刷する。印刷対象:アクティブシート
ActiveSheet.PageSetup.PaperSize = xlPaperB5
ActiveSheet.Unprotect Password:="0630"
ActiveSheet.PageSetup.PrintArea = "B11:O30"
'定数
Const conStart As Long = 1 '開始
Const conStep As Long = 1 '間隔
Const conCell As String = "K7" 'セル番地
'変数
Dim i As Long
Dim conEnd As Integer '終了
With Application
.ScreenUpdating = False
conEnd = Val(.ActiveSheet.Range(conCell).Value)
If conEnd >= 1 Then
For i = conStart To conEnd Step conStep
ActiveSheet.PrintOut
Next
End If
.ScreenUpdating = True
End With
MsgBox "印刷が完了しました。"
ActiveSheet.PageSetup.PrintArea = False
ActiveSheet.Protect Password:="0630"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・「みんな教えて! 選手権!!」開催のお知らせ
- ・漫画をレンタルでお得に読める!
- ・「黒歴史」教えて下さい
- ・2024年においていきたいもの
- ・我が家のお雑煮スタイル、教えて下さい
- ・店員も客も斜め上を行くデパートの福袋
- ・食べられるかと思ったけど…ダメでした
- ・【大喜利】【投稿~12/28】こんなおせち料理は嫌だ
- ・前回の年越しの瞬間、何してた?
- ・【お題】マッチョ習字
- ・モテ期を経験した方いらっしゃいますか?
- ・一番最初にネットにつないだのはいつ?
- ・好きな人を振り向かせるためにしたこと
- ・【選手権お題その2】この漫画の2コマ目を考えてください
- ・2024年に成し遂げたこと
- ・3分あったら何をしますか?
- ・何歳が一番楽しかった?
- ・治せない「クセ」を教えてください
- ・【大喜利】【投稿~12/17】 ありそうだけど絶対に無いことわざ
- ・【選手権お題その1】これってもしかして自分だけかもしれないな…と思うあるあるを教えてください
- ・集合写真、どこに映る?
- ・自分の通っていた小学校のあるある
- ・フォントについて教えてください!
- ・これが怖いの自分だけ?というものありますか?
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・10代と話して驚いたこと
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PHPでPDFファイルの直接印刷
-
印刷ダイアログを表示させない方法
-
C++Builder5で画像データを用紙...
-
VBAで印刷スプール終了の判定を...
-
MSAccessのVBAで印刷時の並べ替...
-
VBAで印刷の成功判定
-
VB2005から複合機を使い自動FAX...
-
.NETプログラムからの印刷
-
ActiveReportsを使って[印刷ダ...
-
VBでExcel印刷する時のプリンタ...
-
2回以上PDFをコピーや印刷がで...
-
マクロコードについて
-
印刷について
-
ご存知の方がいましたら教えて...
-
印刷ダイアログを表示させたくない
-
VBからプリンタに出力する時に...
-
VB.NET+ActiveReports で印刷...
-
エクセルのVBAでプリンタを変更...
-
VBAkコード
-
EXCELファイルの複数ダウンロー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
プリンターを指定して印刷するには
-
印刷要求順番と印刷出力順番が...
-
vbaでPDFファイルが印刷されない
-
EXCELファイルの複数ダウンロー...
-
印刷ダイアログを表示させたくない
-
VBAで印刷の成功判定
-
ACCESSで設定した帳票の用紙サ...
-
VBAで印刷スプール終了の判定を...
-
VB6上から印刷ダイアログを表示...
-
A4の2枚をA3の1枚にする編集方法?
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
2回以上PDFをコピーや印刷がで...
-
両面印刷設定方法について
-
オートメーションエラー(214741...
-
イベントプロシージャ 印刷が...
-
VBSでExcelファイル印刷時のプ...
-
VB2008で0ページの印刷ジョブを...
おすすめ情報
違います。
25枚印刷されてしまいます・・・
コードを変更して、セルに印刷枚数を入れて印刷できるようにならないかと思って・・・;;