すべての勘定コードのシートを組み合わせたPDF

Question

1から600のアカウント番号を持つExcelシートを使用しています。すべてのプリントを単一のpdfで印刷したい場合は、PDFには600の請求書が含まれています。 VBAマクロコードを手伝ってください。

enter image description here

Answer 1

これは簡単です。ブックのみをPDFファイルにエクスポートします。

Sub test() 

    Dim WB As Workbook 
    Dim myFn As String 
    Dim Ws As Worksheet, i As Integer 
    Set WB = ThisWorkbook 

    For i = 1 To 600 
     With Sheets(i) 
      .Range("C5") = i 'Account No cell 
     End With 
    Next i 

    myFn = WB.Path & "\" & "test.pdf" 

    WB.ExportAsFixedFormat xlTypePDF, myFn 
End Sub