G
Guest
I got help from a user the other day that helped me create a macro that will
ask you what worksheet to print. Now i was wondering if i could go a step
further. Instead of typing in the worksheet you want to print (See Below) I
want to know if it can come up with a list and you can choose which one to
print. Below is a portion of the current macro that i have.
Title = "PRINT SCREEN QUESTION"
Config = vbOKCancel + vbQuestion
Ans = MsgBox(msg, Config, Title)
If Ans = vbOK Then
If Ans = vbCancel Then Exit Sub
Dim PReport As Variant
PReport = InputBox("Enter an Account Number (1-4) for the Data Input
sheet to Print", "Print Report", 1)
Select Case PReport
Case 1
Call Print1
Case 2
Call Print2
Case 3
Call Print3
Case 4
Call Print4
Case ""
MsgBox "User Cancelled"
Case Else
MsgBox "You must enter and Integer" & Chr(10) & "Between 1 and 4"
End Select
ask you what worksheet to print. Now i was wondering if i could go a step
further. Instead of typing in the worksheet you want to print (See Below) I
want to know if it can come up with a list and you can choose which one to
print. Below is a portion of the current macro that i have.
Title = "PRINT SCREEN QUESTION"
Config = vbOKCancel + vbQuestion
Ans = MsgBox(msg, Config, Title)
If Ans = vbOK Then
If Ans = vbCancel Then Exit Sub
Dim PReport As Variant
PReport = InputBox("Enter an Account Number (1-4) for the Data Input
sheet to Print", "Print Report", 1)
Select Case PReport
Case 1
Call Print1
Case 2
Call Print2
Case 3
Call Print3
Case 4
Call Print4
Case ""
MsgBox "User Cancelled"
Case Else
MsgBox "You must enter and Integer" & Chr(10) & "Between 1 and 4"
End Select