DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba, butona bastıktan sonra çıktı (sayfa) sayısını yazacağımız bir seçenek çıkmasını nasıl sağlarız?Sayfa isimlerini değiştirerek, her bir düğmeye, bu kodu ekleyin.
Kod:Private Sub CommandButton1_Click() Sheets("OCAK_2011").PrintOut End Sub
Merhaba, butona bastıktan sonra çıktı (sayfa) sayısını yazacağımız bir seçenek çıkmasını nasıl sağlarız?
şimdiden teşekkürler
Private Sub CommandButton1_Click()
Sheets("OCAK_2011").Select
Application.Dialogs(xlDialogPrint).Show
End Sub
Merhaba,Merhaba, butona bastıktan sonra çıktı (sayfa) sayısını yazacağımız bir seçenek çıkmasını nasıl sağlarız?
Private Sub CommandButton1_Click()
Dim s As Byte
s = Application.InputBox("Kaç tane?", "Yazdır", Type:=1)
If s > 0 Then Sheets("OCAK_2011").PrintOut Copies:=s
End Sub
Sayın Cengiz Bey, değerli cevabınız için teşekkür ederim. soruma çözüm olmuştur.Kod:Private Sub CommandButton1_Click() Sheets("OCAK_2011").Select Application.Dialogs(xlDialogPrint).Show End Sub
Sayın Ömer BeyMerhaba,
Ben soruyu biraz farklı anladım. Sayın CengizYurek'in cevabına alternatif olsun.
Kod:Private Sub CommandButton1_Click() Dim s As Byte s = Application.InputBox("Kaç tane?", "Yazdır", Type:=1) If s > 0 Then Sheets("OCAK_2011").PrintOut Copies:=s End Sub