Yazdır butonu

[teonet]

Merhaba, aşağıdaki kodu farklı bir sayfadaki veriyi yazdırmak için kullanıyorum. Butona tıkladığımda yazdırmak istediğim sayfayı açıyor. Bu sayfayı gizleyecek şekilde nasıl uyarlayabiliriz.

Desteğiniz için teşekkürşer


Sub Yazdir()
Dim Yazıcı As String
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub

Worksheets("Numune").Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanın.

Sub Yazdir()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Worksheets("Numune").Visible = True
    Worksheets("Numune").Activate
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Worksheets("Numune").Visible = False
End Sub

 

[Haluk]

Veya;

Sub Yazdir()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Sheets("Numune").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

.

 

[teonet]

Merhaba Haluk Bey
Aşağıdaki satırda hata veriyor. (sarı renge boyuyor)
Sheets("Numune").PrintOut From:=1, To:=1, Copies:=1, Collate:=True

Veya;

Sub Yazdir()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Sheets("Numune").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

.

 

[teonet]

Merhaba.

Merhaba Sayın Dalgalıkur,
bu kodda yazılacak sayfaya giderek orada kalıyor.

Aşağıdaki kodu kullanın.

Sub Yazdir()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Worksheets("Numune").Visible = True
    Worksheets("Numune").Activate
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Worksheets("Numune").Visible = False
End Sub

 

[Muzaffer Ali]

Benim yazdığım kodda numune sayfasında kalması mümkün değil. Çünkü Numune sayfası kodun en son satırında gizleniyor. Görünür olmayan bir sayfanın seçili olması mümkün değil.

 

[teonet]

Benim yazdığım kodda numune sayfasında kalması mümkün değil. Çünkü Numune sayfası kodun en son satırında gizleniyor. Görünür olmayan bir sayfanın seçili olması mümkün değil.

Merhaba Tekrar, dediğiniz gibi ama nedense yazılacak sayfada kalıyor. Nerede hata yapıyor olabilirim. Değerli desteğiniz için teşekkürler.

 

[Haluk]

Sayfa gizliymiş, ben fark etmemişim....

Sub Yazdir2()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Sheets("Numune").Visible = True
        Sheets("Numune").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Sheets("Numune").Visible = False
End Sub

Hem 2.mesajdaki, hem de bu kodun işinizi görmesi gerekir ....

.

 

[Muzaffer Ali]

Merhaba Tekrar, dediğiniz gibi ama nedense yazılacak sayfada kalıyor. Nerede hata yapıyor olabilirim. Değerli desteğiniz için teşekkürler.

Yazdir2 kodlarını F8 tuşuna basarak manuel çalıştırarak kontrol edin. Belki de bu kodlar başka kodları tetikliyordur sorun ondan kaynaklanabilir.

Eğer sorunu kendiniz çözemezseniz dosyanızı ekleyin biz bakalım.

 

[teonet]

Sayın Dalgali kur
desteğiniz için çok teşekkür ederim. Sİzin dediğiniz gibi boş bir dosyada istediğim oluyor. Yapmak istediğim dosyada olmuyor. Onu da gizlilikten dolayı burada paylaşamıyorum.

 

[teonet]

Yazdir2 kodlarını F8 tuşuna basarak manuel çalıştırarak kontrol edin. Belki de bu kodlar başka kodları tetikliyordur sorun ondan kaynaklanabilir.

Eğer sorunu kendiniz çözemezseniz dosyanızı ekleyin biz bakalım.

Merhaba Sayın Dalgalıkur email adresi verebilir misiniz? Dosyayı sizinle paylaşmak isterim.

Teşekkürler

 

[Muzaffer Ali]

Özel mesaj ile buradan gönderebilirsiniz.

Sağ üstte "Mesajlar / Yeni konuşma başlat" tıklatarak gönderebilirsiniz.

 

[teonet]

Özel mesaj ile buradan gönderebilirsiniz.

Sağ üstte "Mesajlar / Yeni konuşma başlat" tıklatarak gönderebilirsiniz.

Desteğiniz için teşekkürler, fakat dosya ekleyemiyorum.

 

[Muzaffer Ali]

http://s7.dosya.tc sitesine dosyanızı yükleyin indirme linkini özelden bana ulaştırın.

 

[Muzaffer Ali]

Özelden gönderdiğiniz dosya üzerinde de denedim istediğiniz gibi oluyor.

Numune sayfası yazdırılıyor ve gizleniyor.

 

[teonet]

Özelden gönderdiğiniz dosya üzerinde de denedim istediğiniz gibi oluyor.

Numune sayfası yazdırılıyor ve gizleniyor.

Merhaba Sayın Dalgalıkur, dosyayı gönderme şansınız var mı? nerede hata yaptığımı görmem açısından. Desteğiniz için tekrar teşekkürler

 

[Muzaffer Ali]

Dosyayı özelden gönderdim.
Kodlara kısayol ekledim.
Dosya açıkken CTRL+Y tuşlarına basarak yazdırma işlemini başlatabilirsiniz.

 

[teonet]

Değerli desteğiniz için teşekkürler

 

[teonet]

Değerli desteğiniz için teşekkürler

 

[Muzaffer Ali]

Rica ederim.
Ama yukarıda yazdığım kodu dosyaya eklemekten başka bir şey yapmadım.
Kod sorunsuz çalışıyor.