VBA Druckroutine anpassen

Sub Mappen_Ausdruck()
Dim ws As Worksheet
Dim ZellAdresse As String
For Each ws In ActiveWorkbook.Worksheets
If Not InStr(ws.Range("B3"), "~") Then
ws.PrintOut
End If
Next
End Sub

Ich will alle Blätter zusammen mit einem Druckbefehl über einen virtuellen Druckertreiber (Acrobat) in eine Datei drucken,
so wie wenn ich mit der normalen Drucken-Funktion von Excel mit "alle" auswählen geschieht.
Diese Routine druckt aber für jedes Arbeitsblatt eine eigene Datei.
Wie muss die Routine modifiziert werden damit alle Blätter der Arbeitsmappe bei denen in Zelle B3 kein "~" steht zusammen in eine Datei gedruckt werden?
Gruss
Jürgen