Invoice Generator

1Option Explicit
2 
3' Invoice Generator — build a PDF invoice from the "Invoice" sheet
4' and email it to the client using late-bound Outlook.
5 
6Public Sub GenerateInvoice()
7    Dim ws As Worksheet
8    Dim invoiceNo As String, client As String, total As Currency
9    Dim pdfPath As String
10 
11    On Error GoTo Fail
12    Set ws = ThisWorkbook.Worksheets("Invoice")
13 
14    invoiceNo = NextInvoiceNumber()
15    ws.Range("F4").Value = invoiceNo
16 
17    client = CStr(ws.Range("B10").Value)
18    total = CCur(ws.Range("G40").Value)
19 
20    pdfPath = ThisWorkbook.Path & "\Invoices\" & invoiceNo & ".pdf"
21    EnsureFolder ThisWorkbook.Path & "\Invoices\"
22 
23    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, _
24        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
25        IgnorePrintAreas:=False, OpenAfterPublish:=False
26 
27    SendInvoiceEmail client, invoiceNo, total, pdfPath
28    LogInvoice invoiceNo, client, total, pdfPath
29 
30    MsgBox "Invoice " & invoiceNo & " emailed to " & client, vbInformation
31    Exit Sub
32Fail:
33    MsgBox "Invoice failed: " & Err.Description, vbCritical
34End Sub