Ve ForEach smyčce na všemi listy posílat tisk vždy toho konkrétního listu.
Domnívám se, že to by si měla tiskárna obsloužit v pohodě.
Je to vlastně obdoba jako když budete ručně procházet každý list a ten samostatně tisknout.
Dim list As Worksheet
For Each list In WorkSheets
list.PrintOut
Next
citovat