الاخ هشام
وعليكم السلام ورحمة الله وبركاتة
Sub معاينة_مع_الطباعة()
ActiveWindow.SelectedSheets.PrintPreview
A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة")
If A = vbYes Then
With ActiveSheet
.PrintOut
End With
End If
Range("A1").Activate
End Sub
معاينة طباعة مع امكانية الطباعه.rar