B
Brook
Good day,
I know this is a recuring topic, but everything that I have found in the
groups is in regards to other PDF Creators such as PDF995, CutePDF, etc, and
nothing specific to Adobe Acrobat Professional
When I look at my Adobe Printer, and look at the driver this is what is
states as my driver: Adobe PDF Converter.
Can any help me with this? I don't want to have to purchase another
program to accomplish what I would like.
Below is my code that I currently use to export to Snapshot.
Begin Code:
Private Sub cmdPrintPreview_Click()
Dim strReportName As String
Dim strCriteria As String
Dim strOutputName As String
Me.Dirty = False
If NewRecord Then
MsgBox "This record contains no data. Please select a record to
print or Save this record." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strReportName = "rptcustomorders"
strCriteria = "[orderid]= " & Me![orderid]
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
If MsgBox("Do you want to save the report to disk?", vbYesNo +
vbQuestion, "Save Report") = vbYes Then
strOutputName = "D:\Karma Imports\Program & Custom Orders\Custom
Orders\" & (Me!ordnum) & " - " & Format(Date, "mm_dd_yyyy") & ".snp"
If Me.PrintOrder = False Then
Me.PrintOrder = True
Me.SystemPrintDate = Date
End If
DoCmd.OutputTo acOutputReport, strReportName, acFormatSNP,
strOutputName, True
End If
End If
End Sub
End Code:
Thanks,
Brook
I know this is a recuring topic, but everything that I have found in the
groups is in regards to other PDF Creators such as PDF995, CutePDF, etc, and
nothing specific to Adobe Acrobat Professional
When I look at my Adobe Printer, and look at the driver this is what is
states as my driver: Adobe PDF Converter.
Can any help me with this? I don't want to have to purchase another
program to accomplish what I would like.
Below is my code that I currently use to export to Snapshot.
Begin Code:
Private Sub cmdPrintPreview_Click()
Dim strReportName As String
Dim strCriteria As String
Dim strOutputName As String
Me.Dirty = False
If NewRecord Then
MsgBox "This record contains no data. Please select a record to
print or Save this record." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strReportName = "rptcustomorders"
strCriteria = "[orderid]= " & Me![orderid]
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
If MsgBox("Do you want to save the report to disk?", vbYesNo +
vbQuestion, "Save Report") = vbYes Then
strOutputName = "D:\Karma Imports\Program & Custom Orders\Custom
Orders\" & (Me!ordnum) & " - " & Format(Date, "mm_dd_yyyy") & ".snp"
If Me.PrintOrder = False Then
Me.PrintOrder = True
Me.SystemPrintDate = Date
End If
DoCmd.OutputTo acOutputReport, strReportName, acFormatSNP,
strOutputName, True
End If
End If
End Sub
End Code:
Thanks,
Brook