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
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