Butonla yazdırmak

[hasimeno]

Arkadaşlar ekteki çalışma kitabında standart yazdır butonuna engelleme koydum sadece butondan yazdırmak isityorum yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Kullandığınız butona aşağıdaki kodu uygulayıp denermisiniz.

Sub YAZDIR()
    ActiveSheet.PrintOut
End Sub

 

[hasimeno]

korhan bey cevabınız için tşk ederim ama bu yardımcı olmadı
başka bir code verebilirmisiniz acebaa

 

[Orion1]

korhan bey cevabınız için tşk ederim ama bu yardımcı olmadı
başka bir code verebilirmisiniz acebaa

Bence sen en iyisi bu sevdadan vazgeç.
Verilen kodu butona atamıyorsan daha ne yapılacak yani.

 

[memoli79]

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut from:=1, To:=1, copies:=1, collate:=True
End Sub

Buyrun Değerli uzmanlarımızın izniyle bir kodda benden aktif sayfayı yazdırmak için.

 

[hasimeno]

evren gizlen
yazdığım yazıyı önce okursanız sevinirim, ben code atayamadım demedim verilen kod yardımcı olmadı dedim mmesaj ekinde dosyayı ekledim aynı kodlasorunu siz çözün ben bırakın excelli bundan sonra pc ye bile dokunmam,
ayrıca mesajı yazarken ben yardım rica etiim mesajıma yorum yapın demedim
uzun süredir siteye üyeyim galiba sizde site yönetimindesiniz ama bakıyorum verdiğiniz cevap hiç açıcı değil
syg