Sayfaları ayrı yazıcılara göndermek

Soru

Ben üç sayfalık bir makro oluşturdum sayfa isimleri;Fatura | Gumruk | Invoice bu sayfalara makro ile bilgiler girilip yazdır butonuna basınca fatura yı matrix yazıcı ile diğer sayfaları mürekkep püskürtmeli yazıcı ile yazdırabilirmiyim. Bu konu hakkında bana yardımcı olabilecek arkadaşlar bilgilerinize muhtacım. Şimdiden teşekkürler.

Cevap

Sub Yaz() 
  Dim sor As Byte, yazici1 As String, yazici2 As String 
  sor = Application.InputBox("Kaçıncı yazıcı?", "suzunkopru", 1) 
  yazici1 = "LPT1: üzerindeki Oki ML 321 Elite (IBM) " 
  yazici2 = "Ne00: üzerindeki PDFCreator " 
  If sor > 2 Then 
    MsgBox "2 yazıcı tanımlı" 
    Exit Sub 
  End If 
  Select Case sor 
    Case Is = 1: Application.ActivePrinter = yazici1 
    Case Is = 2: Application.ActivePrinter = yazici2 
  End Select 
  Sheets("Sayfa1").PrintOut Copies:=1 
End Sub

Kaynak: Excel vba Örnek Dosyalar Cd'si