Probleem bij het afdrukken van meerdere sheets.

[jbronzwaer]

in een toepassing voor een school staan twee invulformulieren op twee verschillende werkbladen.
Men wil nu met één klik formulier 1 afdrukken en automatisch er achteraan formulier 2.
Zet je de formulieren in een werkblad bij elkaar dan is dat geen probleem, maar dat is in dit geval geen optie.
Ik heb daarvoor een macro geschreven die dat afdrukken achtereenvolgens uitvoert:

formulieren_afdrukken()
'   Print formulier 1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'   print meteen ook formulier 2
    Sheets("formulier 2").PrintOut Copies:=1, Collate:=True
End Sub

dat werkt goed als je niet op een netwerk zit.
Het netwerk ziet dit als 2 aparte printopdrachten en vraagt dus tweemaal om identificatie van de opdrachtgever.
Die vindt dat maar lastig en wil met één klik klaar zijn .

Iemand een idee hoe ik dat voor mekaar krijg in deze macro ?

Alvast dank

 

[VenA]

Niet echt helder.

Sub VenA()
  Sheets(Array(ActiveSheet.Name, "formulier 2")).PrintPreview '.printout
End Sub

of

Sub VenA()
  Sheets(Array("formulier 1", "formulier 2")).PrintPreview '.printout
End Sub

 

[jbronzwaer]

Excuus voor de vaagheid.
De oplossing (2) is echter perfect.

Dank, dank