varsayılan yazıcıyı seçmek

[Mahmut Kök]

Makro ile yazıcı seçimi yapıyorum ve yazdıracağım evrağa uygun olarak kullanıyorum; ancak makro bitince seçtiğim yazıcı, haliyle seçili kalıyor.

Makronun sonuna varsayılan yazıcıyı seçen kod ilave etmek istiyorum; nasıl yapabilirim? Yazıcı seçme mantığıyla, kodların sonunda, varsayılan yazıcı hangisiyse, onun adını girerek, tekrar o yazıcıyı seçtiriyorum; ama varsayılan yazıcıyı değiştirdiğimde, tekrar her yerde isim değiştirmem gerekiyor.

Yardımcı olabilirseniz sevinirim, iyi çalışmalar..

 

[Recep İpek]

Aşağıdaki kodları kendinize göre uyarlayabilirsiniz.

Sub PrinterDeğiştir()
    Dim DefaultPrint As String
    DefaultPrint = Application.ActivePrinter
    Application.ActivePrinter = "microsoft fax on fax:" 
    ActiveSheet.PrintOut 
    Application.ActivePrinter = DefaultPrint 
End Sub

 

[Mahmut Kök]

teşekkürler... Sağ olun.

 

[l_a_b]

yazıcı tanımlama

iyi geceler.
benim sorum oluşturduğumuz butonlara varsayılan yazıcıiçin farklı buton . ağ yazıcıları için farklı buton tanımlayabilirmyiz.
örnrk buton 1 e basınca varsayılan yazıcıya göndersin.
buton 2 ye basınca ağ üzrinde hp5500 e gödersin
buton 3 e basınca nokta vurşlıya göndesin
buton 4 e basınca bilgisayarıma bağlı barkod yazıcıya göndersin ?
teşekkürler.

 

[recepkutlu]

merhaba farklı bir durum var bu konuya yardım ederseniz sevinirim.

Sub Makroüç()

'

' Makro8 Makro

'

' Klavye Kısayolu: Ctrl+t

'

    Sheets("ELLE ETİKET BASMA").Select

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _

        :=True, IgnorePrintAreas:=False

    Sheets("ELLE BASMA").Select

    Range("D2").Select

End Sub

ben bu kodun içine sadece " ZDesigner ZD420-203dpi ZPL (Copy 1) " bu yazıcıya yazdırmasını ekleyebilir miyim.

şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Makro kaydet kullarak ihtiyacınız olan kodu bulabilirsiniz. Makro kaydet dedikten sonra yazdırma menüsünden istediğiniz yazıcıyı seçtiğinizde aşağıdakine benzer biçimde kodunuz oluşacaktır. Bu kodu kendi kodunuzda yer alan yazdırma kodunun öncesine ilave edebilirsiniz.
Örnek kod:

Application.ActivePrinter = "Ne00: üzerindeki ZDesigner ZD420-203dpi ZPL (Copy 1) "

 

[recepkutlu]

ilginize teşekkürler...

olmadı yapamadım. hata alıyorum.

 

[ÖmerBey]

Tekrar merhaba,
Benim yukarıda verdiğim kodu aynen kullanmışsanız hata alabilirsiniz bağlantı noktasında vs farklılık olabilir. Yukarıda belirttiğim gibi Makro kaydet yöntemi ile excelin uygun kodları oluşturmasını sağlayabilirsiniz. Yukarıda verdiğim kod, kodun neye benzeyeceğiyle alakalı bir örnekti.

 

[recepkutlu]

teşekkürler...

makro kaydı başlatıp print ekranında yazıcı seç diyorum. kaydı durduruyorum.

bakıyorum hiç kod yazmamış. kodu açmış kapatmış.

 

[Haluk]

Yazıcı adı veya Port tanımında sıkıntı olabilir....

Ekli dosyadaki makroyu çalıştırıp, yazıcıları ve Portları listeledikten sonra Ömer Beyin kodunu gerekirse revize edersiniz.

.

 

[recepkutlu]

dosyayı indiremiyorum. kodları yazsanız olur mu?

 

[recepkutlu]

yapamadım ama ilginize teşekkürler

 

[7xlarge]

Merhaba,

Recep Bey
Makro kaydet düğmesine basın. Sonra YAZDIR butonuna tıklayın, daha sonra bir yazıcı seçin (ben önce PDF ile denedim) yazdır deyin. Makroyu durdurun.

Sub Makro1()

Application.ActivePrinter = "Ne01: üzerindeki Microsoft Print to PDF "
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

verdiği kod bu şekil de.

 

[recepkutlu]

hepinize teşekkürler.
ama aklım almadı bir türlü aynı kodu alamıyorum. acaba versiyon ve admin tarafından yönetilen bilgisayar olduğundan kısıtlamalar mı var?

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+a
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

teşekkürler

 

[recepkutlu]

hala yardım bekliyorum teşekkürler.

 

[Korhan Ayhan]

Boş bir excel sayfasında A1 hücresine TEST yazıp aşağıdaki kodu deneyiniz.

Kod yazıcı seçiminden sonra varsayılan yazıcı adını B1 hücresine yazar.

Sub Printer_Setup()
    Application.Dialogs(xlDialogPrinterSetup).Show
    Range("B1") = Application.ActivePrinter
End Sub

Sonrasında edindiğiniz yazıcı adını kendi kodunuza entegre ediniz. Bold bölümü revize edersiniz. Yazıcı adını yazdığınızda sonunda bir adet boşluk karakteri olmalıdır. Bunu unutmayınız.

Sub Makroüç()
' Klavye Kısayolu: Ctrl+t
Dim Varsayilan_Yazici As String

Sheets("ELLE ETİKET BASMA").Select
Varsayilan_Yazici = Application.ActivePrinter
Application.ActivePrinter = "Ne00: üzerindeki ZDesigner ZD420-203dpi ZPL "
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("ELLE BASMA").Select
Range("D2").Select
Application.ActivePrinter = Varsayilan_Yazici
End Sub

 

[recepkutlu]

evet şimdi oldu çok teşekkürler.

yazıcıyı bulma kodu işi bitirdi.

emeğinize sağlık.