Snasui Excel Forum

Code: Select all

Sub PrintPreview2()
        Application.ScreenUpdating = False
        If [N3].Value = 0 Then
        MsgBox ("¢éÍÁÙÅäÁè¤Ãº ¢Ò´¢éÍÁÙÅ»ÃÐàÀ·§Ò¹")
        Else:  MyVar = [choice]
                 FromNum = 1
                 ToNum = 5
    
        For i = FromNum To ToNum
    
        [choice2] = i
        Calculate
        ActiveWindow.SelectedSheets.PrintPreview
    
        Next i
    
        [choice2] = 1
        
        MsgBox ("¾ÔÁ¾ì 5 ËÅÑ¡ÊÙµÃàÊÃç¨áÅéÇ")
        
        End If
        Application.ScreenUpdating = True
End Sub