Yazdır Butonu

[yysezer]

Herkes öncekllikle günaydın sorum olcaktı ben sayfa1 de bir buton koydum ama sayfa2 yi yazdırmak istiyorum öyle bir kod varmıdır acaba şimdiden çok tşk ederim.

 

[hamitcan]

Sub yazdir()
    Sayfa2.PrintOut
End Sub

 

[yysezer]

çalışma sayfasını ekledim yapamadım

 

[hamitcan]

Sayfa isimlerini değiştirerek, her bir düğmeye, bu kodu ekleyin.

Private Sub CommandButton1_Click()
    Sheets("OCAK_2011").PrintOut
End Sub

 

[teonet]

Sayfa isimlerini değiştirerek, her bir düğmeye, bu kodu ekleyin.

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

 

[CengizYurek]

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

 

[ÖmerBey]

Merhaba, butona bastıktan sonra çıktı (sayfa) sayısını yazacağımız bir seçenek çıkmasını nasıl sağlarız?

Merhaba,
Ben soruyu biraz farklı anladım. Sayın CengizYurek'in cevabına alternatif olsun.

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

 

[teonet]

Private Sub CommandButton1_Click()
    Sheets("OCAK_2011").Select
Application.Dialogs(xlDialogPrint).Show

End Sub

Sayın Cengiz Bey, değerli cevabınız için teşekkür ederim. soruma çözüm olmuştur.

 

[teonet]

Merhaba,
Ben soruyu biraz farklı anladım. Sayın CengizYurek'in cevabına alternatif olsun.

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 Ömer Bey
Değerli cevabın için teşekkür ederim. basitlik ve kullanışlık açısından çok güzel.