Stig 1 i faktura nummer og print 2 sider

hej.
Jeg har fundet noget sådan at min faktura siger 1 hver gang jeg trykker udskriv. Er det muligt at jeg kan lave sådan at når man trykker på samme knap laver den også 2 udskrifter uden at den stiger 2 nummre?

Bruger dette script:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save' gør at mappen gemmes hvis du glemmer det.
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
svar = MsgBox("Vil du udskrive faktura og opdatere fakturanummer")
Application.EnableEvents = False
If svar = vbOK Then
Sheets("Faktura").PrintOut' skriver faktuaren ud
Sheets("Faktura").Range("F1") = Sheets("Faktura").Range("F1") + 1 ' lægger 1 til fakturanummeret.
End If
Application.EnableEvents = True
End Sub

Det drejer sig som sagt om en tillægsfunktion sådan at jeg udskriver 2 udskrifter ved 1 klik og faktura feltet stiger kun 1 selvom den udskriver 2.