yazıcıdan çıktı alma

merhaba arkadaşlar benim sorunum listbox daki yazıları yazıcıdan çıktı olarak almak istiyorum yalnız sayfa boş çıkıyo şu formülü kullandım

Private Sub CommandButton2_Click()
Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)
If Cevap = 6 Then
Worksheets("Sayfa3").PrintOut Copies:=1
Else
End If
End Sub

sayfa3 deki c10 ile f28 aralığını yazdırmam gerekiyo yardımlarınızı bekliyorum

merhaba,

örneğinizi eklemek ister misiniz.
hazır örnek üzerinde ilgilenmek zaman kazandırıcı olabilir.

iyi çalışmalar.
saygılar.

merhaba,

ek'te örnek bir çalışma hazırladım.baskı sonucu olarak bir sorun çıkmamaktadır.
aslında,en iyi sonuç örneğinizin olduğu uygulama üzerinde incelemektir fakat geçici olarak bir örnek olması için bunu hazırladım.inceleyebilirsiniz.

iyi çalışmalar.
saygılar.

merhaba,

bir diğer ek bilgi olarak da isterseniz aşağıdaki gibi bir kısa kod ile de işlemi uygulayabilirsiniz.


Sub sayfayaz()
Sheets("Sayfa3").PageSetup.PrintArea = "C10:F28"
Sheets("Sayfa3").PrintOut Copies:=1
End Sub

iyi çalışmalar.
saygılar.

. . .

Private Sub CommandButton2_Click()

    Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)

    If Cevap = vbNo Then Exit Sub

    Sheets("Sayfa3").Range("C10:F28").PrintOut

End Sub

. . .