Printing to default and pdf printer simultaneously

I am trying to print a report to the default printer on a client PC
and at the same time print the report to a pdf printer and save a copy
of it. My code so far is:

Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblPrintedReports")
If intPreview = 0 Then
MsgBox "HP13 Letter Printing"
' Place code here to update a table field to show it was sent to
printer
rst.AddNew
rst!ReportName = "rptHP13"
rst!PrintDate = Now
rst!ApplicationNumber = [Reports]![rptHP13].[ApplicationNumber]
rst.Update
[Forms]![frmHL1Main]![subform]![tblPrintedReports].Requery

End If

This prompts the user to select a printer. I have no idea how to set
the report to print to the default and then to a named pdf printer
without prompting the user to select. Any help would be appreciated.

I copied the report, set the default printer in page setup to a specific
printer(pdf), used a macro to print the pdf copy directly after the original.

"davea" wrote:

I am trying to print a report to the default printer on a client PC
and at the same time print the report to a pdf printer and save a copy
of it. My code so far is:

Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblPrintedReports")
If intPreview = 0 Then
MsgBox "HP13 Letter Printing"
' Place code here to update a table field to show it was sent to
printer
rst.AddNew
rst!ReportName = "rptHP13"
rst!PrintDate = Now
rst!ApplicationNumber = [Reports]![rptHP13].[ApplicationNumber]
rst.Update
[Forms]![frmHL1Main]![subform]![tblPrintedReports].Requery

End If

This prompts the user to select a printer. I have no idea how to set
the report to print to the default and then to a named pdf printer
without prompting the user to select. Any help would be appreciated.