Question

Userform1 ComandButton1代码与此类似（包含更多行的CheckBox检查）：

Sub CommandButton1_Click()

Application.DisplayAlerts = False

    Set WB = ActiveWorkbook

If CheckBox25.Value = False Then
        WB.sheets("PQC 1025").Delete
    Else: CheckBox25.Value = True
    End If

Unload Me
End

Application.DisplayAlerts = True

End Sub

第二个宏将是格式/打印宏：

Sub Format_Print()

Dim ws As Variant
For Each ws In Workbook

ActiveSheet.PageSetup.LeftFooter = "" & Format(DateTime.Now(), "yyyyMMdd hh:mm:ss")
ActiveSheet.PageSetup.RightFooter = "Page &P of &N"

Next

For Each ws In Workbook

ActiveSheet.PrintOut Copies:=1, Collate:=True

Next

End Sub

老实说，我不知道从哪里开始。我不是一个强大的程序员，我花了一段时间才能达到目标。

我希望在使用CommandButton1（Okay按钮）后Userform1卸载时自动发生这个宏。我不希望在使用CommandButton2卸载Userform1（取消按钮）时自动启动第二个宏。

关于我如何尝试这一点的任何意见都会有所帮助。

Answer 1

我最终在主窗体上创建了一个新按钮来格式化/打印。我用我的初始格式/打印代码解决了我遇到的一些问题，删除了所有维度和设置，然后简单地说＆＃34; sheets.select＆＃34;这是对象错误的简单修复。

我没有检查过人们选择了正确的床单，所以我认为这是一种更安全的方法。

Userform1通过CommandButton1卸载时打印

1 个答案: