İstenen Yazıcıya göndermek

[k0081]

Merhaba arkadaşlar;

Private Sub CommandButton2_Click()

Range("A1:E50").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$108"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        ActiveSheet.PageSetup.PrintArea = ""
        Range("A4").Select
   
        
End Sub

bu kod ile otomatik yazdırma yapıyorum. Fakat sistemdeki default yazıcı hangisi ise ona gönderiyor..

Amacım : Belirlediğim yazıcıya göndermesi...

yardımcı arkadaşa şimdiden teşekkürler..

 

[Necdet]

Merhaba,

inceleyiniz.

http://www.excel.web.tr/f48/macro-ile-otomatik-yazycy-secimi-t80238.html

 

[k0081]

Merhaba,

inceleyiniz.

http://www.excel.web.tr/f48/macro-ile-otomatik-yazycy-secimi-t80238.html

Merhaba hocam.; Soruyu sormadan önce bu verdiğiniz linki incelemiştim. ama gerekli kodları orada bulamadım.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Yazdir()
    Dim Aktif_Yazici As String, Yazici As Variant
    
    Aktif_Yazici = Application.ActivePrinter
    Yazici = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazici = False Then Exit Sub
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$108"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""    
    Application.ActivePrinter = Aktif_Yazici
End Sub

 

[cems]

Merhaba hocam.; Soruyu sormadan önce bu verdiğiniz linki incelemiştim. ama gerekli kodları orada bulamadım.

Print almak için ya bir yol gösterip bundan bas demek ( sayın Yeşertener'in önerisi bunu anlatıyor ) ya da diyalog açıp el ile seçmek gerekiyor. Bu olunca da doğru basımdan emin olmak için preview açmak daha mantıklı olabilir, burada ayar ve printer seçimi yapılabilir.

Sheets("Sheet 1").Activate
ActiveWindow.SelectedSheets.PrintOut Preview:=True
Sheets("Sheet 1").Select
End Sub

Sayfa adını siz değiştirin.

 

[k0081]

Korhan hocam; bu kodlama işime yarayacak gibi duruyor..;

yalnız;

Range("A1:E50").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$50"

bu kodları dahil edebilirmiyiz.. sayfa yapısıda yatay olacak.

Teşekkür ediyorum.

 

[Korhan Ayhan]

Üstteki mesajımdaki kodu güncelledim. Deneyiniz.

 

[k0081]

Korhan Ayhan

Hocam çok teşekkür ediyorum tamamdır..