macro ile otomatik yazıcı seçimi

[Emir Hüseyin Çoban]

Yeni yazıcıların farklı kağıt besleme üniteleri var. Örneğin 1. de A4, 2. de A3 ve El ile besleme ünitesinde de A6 kağıt olsun. Excel'den yazdırıyoruz, farklı sayfalardan komut gönderirken bu belirlenemez mi?
Araya girdim belki ama, konu yazıcı olunca dikkatimi çekti. Genelde network yazıcılarında kullanılabilecek yöntem.
İlgilenenlere şimdiden teşekkür ederim.
Saygılarımla

. . .

Örneğin A3 yazdırmak için. Makro kaydet açıkken.
Manuel yazdırma işlemi yapın ve ayarlardan A3 ile ilgili kısımları seçin. Kodlarını oluşturur ise düzenlene bilir.
Ancak kağıt alma kısmını kodlamaz ise yapılamaz.

. . .

 

[Tevfik_Kursun]

Teşekkürler Hüseyin Hocam,
Deneyeceğim.
Kolay gelsin.
Saygılarımla

 

[musa yüksel]

merhaba,
\\TM6\BrotherH yolunda paylaşımda bi yazıcı var
benim pc de "TM6 üzerinde Brother HL-2040 series" olarak görünüyor
USB002 ye takılı

ne denediysem olmadı lütfen yardımcı olurmusunuz

Sub PrintToAnotherPrinter()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "[COLOR="Red"]hp laserjet 1022 on ne02:[/COLOR]"
    ' change printer
    ActiveSheet.PrintOut
    ' prints the active sheet
    Application.ActivePrinter = STDprinter
    ' change back to standard printer
End Sub

 

[RBozkurt]

Merhaba, deneyiniz.

Sub YaziciSec()
    Application.ActivePrinter = "\\TM6\BrotherH"
End Sub

 

[musa yüksel]

Merhaba, deneyiniz.

Sub YaziciSec()
    Application.ActivePrinter = "\\TM6\BrotherH"
End Sub

Merhaba , maalesef işe yaramadı

 

[musa yüksel]

yazıcıyı nihayet seçtim

yazdırma işlemi bittikten sonra varsayılan yazıcıya nasıl döndürebilirim, ne eklemem gerekiyor

Application.ActivePrinter = "hp yazıcı" = eski haline döndürmek için yeterli olmadı bu ( kodun altına yazmıştım )

ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="\\TM6\Brother HL-2040 series", Collate:=True, _
        IgnorePrintAreas:=False

 

[Korhan Ayhan]

Deneyiniz.

Sub PrintOut()
    Dim Old_Printer As String
    Old_Printer = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
    ActivePrinter:="\\TM6\Brother HL-2040 series", Collate:=True, IgnorePrintAreas:=False
    Application.ActivePrinter = Old_Printer
End Sub