AccessTr.neT

arkadaşlar userformda ilgili sayfada belli bir yeri yazdırmak için aşağıdaki kodları yazdığımda hata alıyorum sebebi ne olabilir

Private Sub CommandButton2_Click()
Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)
If Cevap = 6 Then
ActiveSheet.PageSetup.PrintArea = "Sayfa3!$C$10:$F$31"
ActiveSheet.PrintOut Copies:=2
End If
End Sub

merhaba,

kodlarınızı aşağıdaki gibi düzenlemek ister misiniz.bu şekilde sorununuz çözümlenecektir kanısındayım.

Private Sub CommandButton2_Click()

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

If Cevap = 6 Then

Sheets("Sayfa3").Select

    Range("C10:F31").Select

    ActiveSheet.PageSetup.PrintArea = "$C$10:$F$31"

    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

    ActiveSheet.PageSetup.PrintArea = ""

Else



End If

End Sub

iyi çalışmalar,
saygılar.

çok tşkler sorun çözüldü