Water is Over the Head....

[doran_doran]

Hi,

I am using following code to export PDF and it's working fine. See Sample Database for reference.

1. How do I prompt for location ? (like what drive or directory to save, end user will nagivate this). I tried http://www.mvps.org/access/api/api0001.htm but it's way over my head.

Feel free to modify the code accomodate "prompt for location"

Thanks

= = = = Working Code = = = =
Private Sub cmdSaveReportAsPDF_Click()

If ValidateRptData() = True Then
Dim ReportName As String
Dim FileName As String
Dim DateToday As Date

DateToday = Date
ReportName = "rptNP_Main"
FileName = ReportName & " - " & Format(DateToday, "mm-dd-yyyy") & ".pdf"

Call SaveReportAsPDF("rptNP_Main", FileName)
MsgBox "Export completed"
End If

End Sub

 

[cpuSmoker]

Is this what your looking for?

Take care dude, I know what you mean. The Access 97 version of the common dialog control seem to be crude at best.

I have enclosed some vb modules and sample forms for you to get a handle on it. I think you should be able to handle it from here.