Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22350 / 76732

←次へ　｜　前へ→


	【59765】Re:同一ページの連続印刷について

kawa - 09/1/7(水) 17:06 -


	引用なし

	パスワード

すばやいお返事、ありがとうございます。

ちょっと長いのと、必要ない部分、逆に足りない部分もあるかもしれませんが
よろしくお願いします。
調べてみると、Sleepの時間が短すぎるのかな、とも思ったのですが…

'印刷処理
Private Sub PrintProc(ByVal 出力されるシート名 As String)
　　
　　Dim i As Long
　　Dim j As Long
　　Dim txt As String
　　
　　With Worksheets(入力したシート名)
　　　　　　
　　　　For i = 連番の開始番号 To 連番の終了番号
　　　　　　For j = 枝番の開始番号 To 枝番の終了番号
　　　　　　　　
　　　　　　　　txt = Left(Format(i, "00000"), 2) & "　" & Right(Format(i, "00000"), 3) & Format(j, "00")
　　　　　　　　
　　　　　　　　Select Case j
　　　　　　　　　　Case 1
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq1.Caption = txt
　　　　　　　　　　Case 2
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq2.Caption = txt
　　　　　　　　　　Case 3
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq3.Caption = txt
　　　　　　　　　　Case 4
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq4.Caption = txt
　　　　　　　　　　Case 5
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq5.Caption = txt
　　　　　　　　　　Case 6
　　　　　　　　　　　　Worksheets(出力されるシート名).lblSeq6.Caption = txt
　　　　　　　　　　End Select
　　　　　　Next
　　　　　　
　　　　　　'枝番が３かつ空欄なしの場合、出力処理
　　　　　　If Not (.Range(InputEdaEd) = 3) Then
　　　　　　　　
　　　　　　　　'印刷処理
　　　　　　　　DoEvents
　　　　　　　　Sleep 500
　　　　　　　　Worksheets(sheetname).PrintOut
　　　　　　　　
　　　　　　　　DoEvents
　　　　　　　　
　　　　　　　　'ラベルの初期化（関数は別に有ります）
　　　　　　　　InitLabelCaption (sheetname)
　　　　　　End If
　　　　Next
　　　　
　　　　InitLabelCaption (sheetname)
　　End With

End Function

4 hits

▼

【59761】同一ページの連続印刷について kawa 09/1/7(水) 16:00