Buton ile yazdırma

hatirlabeni

Altın Üye
Katılım
14 Ekim 2011
Mesajlar
204
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
17-10-2027
Arkadaslar benim yapmak istedigim 6 excel çalışma sayfam var hazır
Sayfa isimleri
Öğrenci1
Öğrenci2
Öğrenci3
Öğrenci4
Öğrenci5
Öğrenci6

Ayrı Bir Sayfaya da YazdırmaSayfası eklemek istiyorum ve bu sayfaya da butonlarla yazdırmak istedigim ögrenciilerin her birini bir butona koymak istiyorum

1. botun da Öğrenci1 2. sinde Öğrenci2 yazdır olacak bunu nasıl yapabiliriz.
 

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
579
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Altın Üyelik Bitiş Tarihi
süresiz üye
dosya eklermisiniz.
 

hatirlabeni

Altın Üye
Katılım
14 Ekim 2011
Mesajlar
204
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
17-10-2027
Dosya ekte
 

Ekli dosyalar

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
579
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Altın Üyelik Bitiş Tarihi
süresiz üye
kontrol edermisiniz?
 

Ekli dosyalar

hatirlabeni

Altın Üye
Katılım
14 Ekim 2011
Mesajlar
204
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
17-10-2027
Aynen boyle olacak fakat onizleme olmadan butona tıklandıgı zamam otomatik yazdırsın yapılabilir mi ?
 

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
579
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Altın Üyelik Bitiş Tarihi
süresiz üye
kodladı aşağıdakilerle değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Sheets("öğrenci1").PrintOut
End Sub

Private Sub CommandButton2_Click()
Sheets("öğrenci2").PrintOut
End Sub

Private Sub CommandButton3_Click()
Sheets("öğrenci3").PrintOut
End Sub

Private Sub CommandButton4_Click()
Sheets("öğrenci4").PrintOut
End Sub

Private Sub CommandButton5_Click()
Sheets("öğrenci5").PrintOut
End Sub

Private Sub CommandButton6_Click()
Sheets("öğrenci6").PrintOut
End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde kullanabilirsiniz.
Kod:
Private Sub ListBox1_Click()
On Error Resume Next
Sheets("" & ListBox1).PrintOut
End Sub
 

Ekli dosyalar

hatirlabeni

Altın Üye
Katılım
14 Ekim 2011
Mesajlar
204
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
17-10-2027
kodladı aşağıdakilerle değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Sheets("öğrenci1").PrintOut
End Sub

Private Sub CommandButton2_Click()
Sheets("öğrenci2").PrintOut
End Sub

Private Sub CommandButton3_Click()
Sheets("öğrenci3").PrintOut
End Sub

Private Sub CommandButton4_Click()
Sheets("öğrenci4").PrintOut
End Sub

Private Sub CommandButton5_Click()
Sheets("öğrenci5").PrintOut
End Sub

Private Sub CommandButton6_Click()
Sheets("öğrenci6").PrintOut
End Sub

Hocam tam istediğim sekilde oldu Seyit Hocamın dosyasını da inceedim fakat diğer kodlar daha kullanışlı kendi çalışma sayfama aynısını nasıl eklerim taşı ve kopyala ile olmadi.
CommandButton nasıl eklerim office sürümüm 2007
 

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
579
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Altın Üyelik Bitiş Tarihi
süresiz üye
kendi dosyanızda tuşları yerleştirdikten sonra kodları da kopyalayın olur.
 
Üst