Multiple if formulaes in macro

[Markus_87]

Hi all,

Bit of a beginner so please ignora my stupidity

I have asigned a macro to an autoshape (just to create a button) to print to a virtual printer. which works fine but i'm trying to ensure users fill in certain forms before it lets them go ahead. This is the code I have so far


Sub macro1()
If TextBox28.Text = "" Then
MsgBox "Please enter a Date before continuing", vbInformation, "Alert"
Else
If TextBox2.Text = "" Then
MsgBox "Please choose AM or PM before continuing", vbInformation, "Alert"
Else
If TextBox13.Text = "" Then
MsgBox "Please enter the 'Anaesthetist Name/Initial' field before continuing", vbInformation, "Alert"
Else
Range("I32").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox "Your form has been submitted", vbInformation, "Confirmation"
End If
End If
End If

End Sub

I keep getting a Run-Time error '424': Object Required

Any help would be appreciated

Thanks
Mark

 

[VoG]

Hi. Try

Sub macro1()
If TextBox28.Text = "" Then
MsgBox "Please enter a Date before continuing", vbInformation, "Alert"
End If
If TextBox2.Text = "" Then
MsgBox "Please choose AM or PM before continuing", vbInformation, "Alert"
End If
If TextBox13.Text = "" Then
MsgBox "Please enter the 'Anaesthetist Name/Initial' field before continuing", vbInformation, "Alert"
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox "Your form has been submitted", vbInformation, "Confirmation"

End Sub

 

[Markus_87]

Sorry my mistake initial code did work as did yours but i was putting it in the wrong place. in the module section where i originally recorded the macro when it should have been under sheet1 with the user code.

See I said I was stupid

Many thanks anyway

 

[Markus_87]

If only it was that simple

I've now realised that this code works great but it always choses the default printer. I need it to print to a different one in the list as I cant go round setting all the users default printers to the virtual one that i need to use for this.

Any ideas how to incorporate it in this code?

Sub macro1()
If TextBox13.Text = "" Then
MsgBox "Please enter the 'Anaesthetist Name/Initial' field before continuing", vbInformation, "Alert"
Else
If TextBox28.Text = "" Then
MsgBox "Please enter a Date before continuing", vbInformation, "Alert"
Else
If TextBox2.Text = "" Then
MsgBox "Please choose AM or PM before continuing", vbInformation, "Alert"
Else
Range("I32").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox "Your form has been submitted", vbInformation, "Confirmation"
End If
End If
End If
End Sub

 

[VoG]

Perhaps replace

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

with

Application.Dialogs(xlDialogPrint).Show

 

[Markus_87]

Again VOG i'm asking for help before i've even looked properly i'm sorry.

All i need to add was the line in red below

Sub macro1()
If TextBox13.Text = "" Then
MsgBox "Please enter the 'Anaesthetist Name/Initial' field before continuing", vbInformation, "Alert"
Else
If TextBox28.Text = "" Then
MsgBox "Please enter a Date before continuing", vbInformation, "Alert"
Else
If TextBox2.Text = "" Then
MsgBox "Please choose AM or PM before continuing", vbInformation, "Alert"
Else
Range("I32").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="name of printer", Collate:=True
MsgBox "Your form has been submitted", vbInformation, "Confirmation"
End If
End If
End If
End Sub

Many thanks again