CommandButton ile alınan raporu yazıcıya gönderme

[MFY81]

merhaba arkadaşlar

almış olduğum raporu CommandButton ile yazıcıya nasıl gönderebilirim.

 

[Emir Hüseyin Çoban]

. . .

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

. . .

 

[MFY81]

emir hüseyin bey ilginiz için teşekkür ederim.

ancak

Private Sub CommandButton6_Click()

On Error Resume Next

Set S1 = Sheets("giderler")
Set S2 = Sheets("giderlersorgu")



S1.Range("r2") = ComboBox6.Text
S1.Range("s2") = ComboBox7.Text
S1.Range("t2") = ComboBox8.Text
S1.Range("u2") = ComboBox10.Text
S1.Range("v2") = ComboBox11.Text
S1.Range("y2") = ComboBox12.Text
S1.Range("w2") = TextBox11.Value
S1.Range("x2") = TextBox12.Value



If S1.Range("r2") = "" And S1.Range("s2") = "" And S1.Range("t2") = "" And S1.Range("u2") = "" And S1.Range("v2") = "" And S1.Range("y2") = "" And S1.Range("w2") = "" And S1.Range("x2") = "" Then
MsgBox " LÜTFEN ENAZ BİR KRİTER SEÇİNİZ", vbCritical
ComboBox6.SetFocus
Exit Sub
End If

bu süzme işleminden sonra kalan kısmı yazdırmak istiyorum.
ve bu işlemi her sayfa için uygulamak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Yazdırmak istediğiniz sayfa ismi ve hücre aralığı nedir...
Örneğin Sayfa1 A1:C10 gibi.

. . .