AĞDAKİ YAZICIYA YAZDIRMA MAKROSU

[turkanet]

AÐDAKÝ YAZICIYA YAZDIRMA MAKROSU

Private Sub CommandButton2_Click()
Sheets("Sayfa1").PrintOut "\\CEM\KONICA" Copies:=1
End Sub

BU KODLA ÇALIÞMADI. CEM ÜZERİNDE KONICA YAZICISIYLA YAZDIRMAK İÇİN KODU NASIL DEÐİÞTİREBİLİRİM???

 

[turkanet]

ESKİDEN SORUYA SANİYELER İÇİNDE CEVAP ALIYORDUM. ÞİMDİ NE OLDU GÜZELİM FORUMA?? ÇOK BASİT ÞEYLER SORMAMA RAÐMEN NEDEN HİÇ CEVAP GELMİYOR?? ÇOK ÜZÜLÜYORUM ÇOOOOK...

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:64c76be859]
Application.ActivePrinter = "Ne00:\\CEM\KONICA"
Sheets("Sayfa1").PrintOut Copies:=1[/vb:1:64c76be859]

 

[turkanet]

ben de benzer bir şekilde deneye deney bulmuştum. benim yazdığım kod şu idi. farklı olması belki de pc ye bağlı 2 yazıcı olmasındandır. birisi lpt ye bağlı, diğeri ağdan yazıyor.
yazdığım kod:

Private Sub CommandButton1_Click()
Application.ActivePrinter = "Ne00: üzerindeki \\CEM\KONICA "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne00: üzerindeki \\CEM\KONICA ", Collate:=True
End Sub

Private Sub CommandButton1_Click()
Application.ActivePrinter = "LPT1: üzerindeki Panasonic KX-P1150 "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: üzerindeki Panasonic KX-P1150 ", Collate:=True
End Sub