Excel VBA質問箱 IV

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

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


21516 / 76732 ←次へ | 前へ→

【60611】請求書の連続印刷について
質問  ito  - 09/3/5(木) 9:31 -

引用なし
パスワード
   下記のマクロで請求書の連続印刷を行っております。
受注件数が一枚の請求書に収まる場合は良いのですが
受注件数が多く、2ページ以上になった場合 , 下記のマクロでは
2 ページの最初の行から 受注日、品名、個数、単価、売上金額、
の受注明細となります。
請求書のフォームが同じなため、1ページ目と同じく、2ページ目も住所、社名を入れ
同じ行から残りの受注件数を入れ、印刷する方法を教えて頂けませんか。
宜しく、お願いします。

Private Sub P_請求書貼付()
  Dim IngRow2 As Long
  Dim IngRow6 As Long
  Dim i, j As Long
  
  With Worksheets("請求書")
  
   With Worksheets("補助2") '受注台帳から抽出したA社の受注件数リスト
     IngRow2 = Sheets("補助2").Range("A1").End(xlDown).Row
   End With
   
   With Worksheets("補助6") '得意先台帳からの、A社の 住所、社名
     IngRow6 = Sheets("補助6").Range("A1").End(xlDown).Row
   End With
   
   For j = 2 To IngRow6
     '住所1、住所2、会社名、部署名
     Sheets("請求書").Cells(3, 2).Value = Sheets("補助6").Cells(j, 5).Value
     Sheets("請求書").Cells(4, 2).Value = Sheets("補助6").Cells(j, 6).Value
     Sheets("請求書").Cells(7, 2).Value = Sheets("補助6").Cells(j, 2).Value
     Sheets("請求書").Cells(8, 2).Value = Sheets("補助6").Cells(j, 3).Value
       
    For i = 2 To IngRow2
     '受注日、品名、個数、単価、売上金額、
     Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 1).Value
     Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 2).Value
     Sheets("請求書").Cells(i + 13, 2).Value = Sheets("補助2").Cells(i, 3).Value
     Sheets("請求書").Cells(i + 13, 3).Value = Sheets("補助2").Cells(i, 4).Value
     Sheets("請求書").Cells(i + 13, 7).Value = Sheets("補助2").Cells(i, 5).Value
    Next i
      P_印刷実行
   Next j
  End With
End Sub

Private Sub P_印刷実行()
  Dim varList() As Variant
  Dim varLp As Variant
  Dim intRet As Integer
  
  Dim RowsCount As Long
  Dim BreakCount As Integer
  
   Worksheets("請求書").Activate
    '1ページの行数設定
    ActiveSheet.ResetAllPageBreaks
    RowsCount = ActiveSheet.Range("A1").CurrentRegion.Rows.count
  
   For BreakCount = 1 To (RowsCount) / 20
    ActiveSheet.HPageBreaks.Add Before:=Cells(BreakCount * 20 + 1, 1)
   Next
   ActiveSheet.PrintOut
End Sub

2 hits

【60611】請求書の連続印刷について ito 09/3/5(木) 9:31 質問
【60624】Re:請求書の連続印刷について トト 09/3/5(木) 16:13 発言
【60630】Re:請求書の連続印刷について つん 09/3/5(木) 17:10 発言
【60659】Re:請求書の連続印刷について ito 09/3/6(金) 22:23 お礼
【60661】Re:請求書の連続印刷について ito 09/3/6(金) 22:41 お礼
【60662】Re:請求書の連続印刷について つん 09/3/6(金) 23:11 発言
【60679】Re:請求書の連続印刷について ito 09/3/7(土) 21:10 発言
【60680】Re:請求書の連続印刷について つん 09/3/7(土) 22:30 発言
【60850】Re:請求書の連続印刷について ito 09/3/18(水) 9:57 お礼

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