VBA Code for a print button

[DerekN]

I have setting up a siple print button where on initiation the macro prints a range of cells on a speciic worksheet in a workbook. But I have been getting a compile error. I just cannot see whats wrong...any suggestions?

Sub Print_Invoice()
Sheets("PreSchoolInvoice").PrintOut
ActiveSheet.Range("A1:H62").Select
End Sub

 

[MARK858]

Is it actually a compile error i.e. the line goes red (doesn't for me), if yes what line?
or is it a normal error, if yes again what line and what does the message state?
Do you have any sheet protection?

 

[DerekN]

mmm looking at my code though... the logic is not quite right, so I tried this
Sub Print_Invoice()
Sheets("PreSchoolInvoice").Select
ActiveSheet.Selection("A1:H62").PrintOut
End Sub

and got an error which said "Invalid Outside Procedure" . I do not have protection on the sheet

 

[MARK858]

Invalid outside procedure normally means you have some characters outside the routine, do you? even in another module but your sub is also incorrect in its syntax.

What are you trying to do? print range A1:H62 on Sheet("PreSchoolInvoice")?

 

[DerekN]

I see.. I cannot see anytging outside the routine......I imagine its my syntax. Yes I am trying to print a range on a sheet - print range A1:H62 on Sheet("PreSchoolInvoice")

 

[MARK858]

I cannot see anytging outside the routine......I imagine its my syntax

Your syntax shouldn't produce that error it should produce an Object doesn't support that property or method error anyway....

One code for printing the range is....

Sub Print_Invoice()
 With Sheets("PreSchoolInvoice")
   .PageSetup.PrintArea = "$A$1:$H$62"
   .PrintOut
 End With
End Sub

 

[DerekN]

Thank you for the syntax...I will hunt for problems elsewhere