| |
下記のマクロで請求書の連続印刷を行っております｡
受注件数が一枚の請求書に収まる場合は良いのですが
受注件数が多く､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") '受注台帳から抽出したＡ社の受注件数リスト
IngRow2 = Sheets("補助2").Range("A1").End(xlDown).Row
End With
With Worksheets("補助6") '得意先台帳からの、Ａ社の 住所、社名
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 09/3/6(金) 23:11 -
