Report Save As PDF (if data is entered)

  • Thread starter Thread starter Deleted member 134417
  • Start date Start date
D

Deleted member 134417

Guest
Hey guys,
I have a report that has multiple clients on each page. In the report, some clients have data for a specific date while others do not.
I would like to be able to Save As PDF each page to a specified folder but only if that client has data in the report. I am currently doing this in Excel, but would like to move my data and reports over to Access. My Excel VBA code is:

Sub SaveAsPDF()

Dim ws As Worksheet

For Each ws In Worksheets
If ws.Range("B66").Value <> "" And _
ws.Name <> "Notes" And _
ws.Name <> "Lookups" Then

ws.Activate

ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\callen\Desktop\PDF\" & ws.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Next ws

End Sub

Which says if B66 is empty then don't Save As PDF.
Is this possible to do in Access?
I'm very new to Access and have never used VBA in it before.
I would like to be able to create a button in a form that when I click it will run this code.
Cheers
 

Users who are viewing this thread

Back
Top Bottom