Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
If Range("d3") = "" Then
        MsgBox "¡ÃسҡÃÍ¡àÇÅÒ", vbOKOnly
        Exit Sub
    End If
Worksheets("sheet1").PrintPreview
End Sub

Code: Select all

If Range("b3") <> "" And Range("d3") = "" Then