Save as PDF file but exclude blank pages (using macro)

[feni1388]

Hello...
I'm making an invoice in excel that has header on the top and detail of the items ordered on the table below.
The details of the items ordered varies widely for each month, so I won't know how long it's going to be.
It can be one page only, two pages, or even three pages.
I need to save it as PDF before sending to customer, so my question is that whether it's possible or not to save the file as PDF but excluding the blank pages?
The header will be there, but I need macro to see a certain cell on the table whether it's empty or not (there'll be formula in it, but the cell will be shown as empty).
If it's empty then that page won't be saved.

I attached the image.
Only the first and the second page that has items details on the table but not the third page.

If anyone can help, I would really appreciate it.

 

[eiloken]

i don't know this is what you need or not:

Sub ExportInvoice()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim ws As Worksheet
    Dim i As Long, j As Long
    Dim delCol As Range
    For Each ws In ThisWorkbook.Sheets
        i = ws.Cells(25, Columns.Count).End(xlToLeft).Column
        j = 1
        Do While j <= i - 13
            If IsEmpty(ws.Cells(26, j)) Then
                If delCol Is Nothing Then
                    Set delCol = ws.Range(Cells(1, j), Cells(51, j + 13))
                Else
                    Set delCol = Union(delCol, ws.Range(Cells(1, j), Cells(51, j + 13)))
                End If
            End If
            j = j + 14
        Loop
        If Not delCol Is Nothing Then delCol.Delete Shift:=xlToLeft
        ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\Invoice" & Format(Now, "yyyymmddhhmmss") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[feni1388]

ah.... sorry, I misunderstood.
I changed it to vertical (3 invoice under each other).

 

[feni1388]

i don't know this is what you need or not:

Sub ExportInvoice()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim ws As Worksheet
    Dim i As Long, j As Long
    Dim delCol As Range
    For Each ws In ThisWorkbook.Sheets
        i = ws.Cells(25, Columns.Count).End(xlToLeft).Column
        j = 1
        Do While j <= i - 13
            If IsEmpty(ws.Cells(26, j)) Then
                If delCol Is Nothing Then
                    Set delCol = ws.Range(Cells(1, j), Cells(51, j + 13))
                Else
                    Set delCol = Union(delCol, ws.Range(Cells(1, j), Cells(51, j + 13)))
                End If
            End If
            j = j + 14
        Loop
        If Not delCol Is Nothing Then delCol.Delete Shift:=xlToLeft
        ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\Invoice" & Format(Now, "yyyymmddhhmmss") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

May I know which cell address that you refer to?
I tried the code above and the blank page is still there.
or do I need to make it vertical as suggested instead of horizontal?

 

[feni1388]

i don't know this is what you need or not:

Sub ExportInvoice()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim ws As Worksheet
    Dim i As Long, j As Long
    Dim delCol As Range
    For Each ws In ThisWorkbook.Sheets
        i = ws.Cells(25, Columns.Count).End(xlToLeft).Column
        j = 1
        Do While j <= i - 13
            If IsEmpty(ws.Cells(26, j)) Then
                If delCol Is Nothing Then
                    Set delCol = ws.Range(Cells(1, j), Cells(51, j + 13))
                Else
                    Set delCol = Union(delCol, ws.Range(Cells(1, j), Cells(51, j + 13)))
                End If
            End If
            j = j + 14
        Loop
        If Not delCol Is Nothing Then delCol.Delete Shift:=xlToLeft
        ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\Invoice" & Format(Now, "yyyymmddhhmmss") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Thank you for your help.
I found another way by hiding the columns if it's empty.