如何在VBA内的Excel宏中添加不打印选项

Question

我在Excel中具有宏观按钮，该按钮具有以下代码和相应的打印

Private Sub CommandButton10_Click()
MsgBox "SET YOUR PRINTER &  CLICK OK"
    Range("B18:B58").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-33
    Range("bf18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveSheet.PageSetup.PrintArea = "$L$775:$AN$818"
    'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True
    'ActiveSheet.PageSetup.PrintArea = "$ay$520:$be$523"
    'Range("A1").Select
'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview
End Sub

。如果按钮单击此按钮将直接打印到默认打印机，但是我想选择一个选项以取消打印机，好像有人单击按钮也可以返回..如何使用上述代码

进行操作。

thnk u

Answer 1

msgbox可以返回按下的内容，因此您可以在if语句中使用它。

so;

Private Sub CommandButton10_Click() 'Give this a name!
    If MsgBox("SET YOUR PRINTER & CLICK OK", vbOKCancel) = vbOK Then
        Range("B18:B58").Select
        Selection.Copy
        ActiveWindow.SmallScroll Down:=-33
        Range("bf18").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("A1").Select
        ActiveSheet.PageSetup.PrintArea = "$L$775:$AN$818"
        'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True
        'ActiveSheet.PageSetup.PrintArea = "$ay$520:$be$523"
        'Range("A1").Select
        'ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True
        ActiveWindow.SelectedSheets.PrintPreview
    End If
End Sub