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.