0

おはよう。以前はうまく機能していたコードの一部に問題があります。

Private Sub Workbook_Open()

UserForm1.Show

End Sub

ユーザーフォームに格納

Private Sub CommandButton1_Click()

'   Verify All Fields
Msg = "Have you entered all Fields?"
Title = "TONU"
Config = vbYesNo + vbQuestion
Ans = MsgBox(Msg, Config, Title)
    If Ans = Yes Then GoTo nextstep:
    If Ans = No Then Exit Sub

nextstep:

'   Print Option
Msg1 = "Would you like to Print a hard copy?"
Title1 = "TONU"
Config1 = vbYesNo + vbQuestion
Ans1 = MsgBox(Msg1, Config1, Title1)
    If Ans1 = Yes Then UserForm1.Print
    If Ans1 = No Then Run Report


lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1

MsgBox lastRow


End Sub

ユーザーフォームは私の他のプロジェクトではうまく印刷されますが、新しいプロジェクトでこのコードを使用すると印刷されません?!?! 考え？

4

1 に答える 1