Print 2 Excel sheets to same PDF File

[groundin]

Hi,
I need to print 2 excel sheets into the same PDF File (I use Primo PDF if that matters).
Currently the way it works is that it selects sheet then prints it, then call another macro and then selects that sheet and prints it.
But when it does that it is basically creating 2 separate PDF Files which I don't want.
Also I don't need to have the print dialog box come up twice.
Any Ideas?

Sub PrintDaily()
'
' PrintDaily Macro
'

'
    Sheets("Daily (1)").Select
    Sheets("Dont Unhide Daily Report").Visible = True
    Sheets("Dont Unhide Daily Report").Select
    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Dont Unhide Daily Report").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Daily (1)").Select
    Call PrintCosts
    Range("F4").Select
End Sub

Sub PrintCosts()
'
' PrintCosts Macro
'

'
    Sheets("Costs").Select
    Sheets("Don't Unhide Costs Report").Visible = True
    Sheets("Don't Unhide Costs Report").Select
     Application.Dialogs(xlDialogPrinterSetup).Show
     ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Don't Unhide Costs Report").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Costs").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("D40").Select
End Sub