Excel VBA質問箱 IV

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

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


58911 / 76732 ←次へ | 前へ→

【22541】Re:ユーザーフォームから印刷を実行
発言  kazu  - 05/2/23(水) 15:46 -

引用なし
パスワード
   satoko さん

こんにちは。

マクロでの文字列の書き込み等は無く印刷のみみたいですので。

範囲指定してページ設定する感じで組んでみましたが・・・。

USER Form内に記述して下さい。

TextBox 開始番号入力用  Txt_StartId
TextBox 終了番号入力用  Txt_Txt_LastId

Command Bottan キャンセル用ボタン   Btn_Cancel
Command Bottan 実行用ボタン    Btn_Ret

というオブジェクト名として組んであります。

こんな感じでどうでしょうか?


Private Sub Btn_Cancel_Click()
Me.Hide
End Sub

Private Sub Btn_Ret_Click()

'帳票の先頭列番号
Const IntColStart As Long = 1
'帳票の末尾列番号
Const IntColLast As Long = 8
'帳票1番号分の行数
Const Cnt As Long = 5


Dim IntStartId As Long, IntStartRow As Long

Dim IntLastId As Long, IntLastRow As Long

Dim i As Long
  
'テキストボックスの入力エラー確認
'===================================================================================

  If Me.Txt_StartId = "" Then
    MsgBox "開始位置を入力してから実行して下さい。", vbExclamation, "開始位置未記入"
    Me.Txt_StartId.SetFocus
    Exit Sub
  End If
  
  IntStartId = Str_Chk(Me.Txt_StartId)
  If IntStartId = 0 Then
    MsgBox "開始位置の入力形式に誤りがあります。", vbExclamation, "開始位置エラー"
    Me.Txt_StartId.SetFocus
    Exit Sub
  End If


  If Me.Txt_LastId = "" Then
    MsgBox "終了位置を入力してから実行して下さい。", vbExclamation, "終了位置未記入"
    Me.Txt_LastId.SetFocus
    Exit Sub
  End If
  
  IntLastId = Str_Chk(Me.Txt_LastId)
  
  If Str_Chk(Me.Txt_LastId) = 0 Then
    MsgBox "終了位置の入力形式に誤りがあります。", vbExclamation, "終了位置エラー"
    Me.Txt_LastId.SetFocus
    Exit Sub
  End If

' 開始行,終了行の設定
'===================================================================================
  IntStartRow = (IntStartId - 1) * Cnt + 1
  IntLastRow = (IntLastId) * Cnt
  
  ViewSet = ActiveWindow.View
  ActiveWindow.View = xlNormalView
  
  With ThisWorkbook.Sheets("印刷")
  
  ' 一旦印刷範囲の設定を初期化
  '===================================================================================
    .PageSetup.PrintArea = ""
  
  ' 一旦改ページを初期化
  '===================================================================================
    .Cells.PageBreak = xlPageBreakNone
    
  ' 印刷範囲の設定
  '===================================================================================
    .PageSetup.PrintArea = .Cells(IntStartRow, IntColStart).Address & ":" & .Cells(IntLastRow, IntColLast).Address
  
  ' 改ページの設定 (6項目毎でページを別ける)
  '===================================================================================
    .Columns(IntColLast + 1).PageBreak = xlPageBreakManual
    i = 1
    Do
      .Cells(i * Cnt * 6 + IntStartRow, IntColStart).PageBreak = xlPageBreakManual
      i = i + 1
    Loop Until i * Cnt * 6 + IntStartRow > IntLastRow
    .PrintOut
  End With

  ActiveWindow.View = ViewSet
  
End Sub


Function Str_Chk(StrTmp)
  On Error Resume Next
  Buf = CInt(StrTmp)
  If Err Then
    Buf = 0
    Err.Clear
  End If
  Str_Chk = Buf
End Function
1 hits

【22484】ユーザーフォームから印刷を実行 satoko 05/2/22(火) 18:56 質問
【22503】Re:ユーザーフォームから印刷を実行 kazu 05/2/22(火) 23:26 発言
【22508】Re:ユーザーフォームから印刷を実行 satoko 05/2/23(水) 8:46 質問
【22541】Re:ユーザーフォームから印刷を実行 kazu 05/2/23(水) 15:46 発言
【22575】ユーザーフォームから印刷を実行 satoko 05/2/24(木) 8:56 質問
【22576】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 9:37 発言
【22577】Re:ユーザーフォームから印刷を実行 satoko 05/2/24(木) 10:54 質問
【22578】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 11:56 発言
【22580】ユーザーフォームから印刷を実行 satoko 05/2/24(木) 12:59 質問
【22587】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 13:25 発言
【22604】ユーザーフォームから印刷を実行 satoko 05/2/24(木) 18:37 質問
【22606】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 18:45 発言
【22608】ユーザーフォームから印刷を実行 satoko 05/2/24(木) 19:07 質問
【22609】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 19:14 発言
【22611】Re:ユーザーフォームから印刷を実行 satoko 05/2/24(木) 19:37 質問
【22612】Re:ユーザーフォームから印刷を実行 kazu 05/2/24(木) 19:43 発言
【22614】ユーザーフォームから印刷を実行 satoko 05/2/24(木) 19:56 お礼

58911 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free