G'day J

I used this code a long time ago, but it should still be relavent in 2007

Change the range & ActivePrinter to suit

ActiveSheet.Select
Range("Z1:AH51").Select
ActiveSheet.PageSetup.PrintArea = "$Z$1:$AH$51"
Application.ActivePrinter = "HP LaserJet 1200 Series PCL 6 on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If you have multiple worksheets that have differing print requirements:

Create a macro for each sheet that requires different print needs and change
the code to suit. e.g:

ActiveSheet.Select
Range("A1:A100").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$100"
Application.ActivePrinter = "MyLaserJet on MyNetwork:"
ActiveWindow.SelectedSheets.PrintOut Copies:=10, Collate:=True
or
ActiveSheet.Select
Range("D10:D20").Select
ActiveSheet.PageSetup.PrintArea = "$D$10:$D$20"
Application.ActivePrinter = "MyOtherLaserJet on MyOtherNetwork:"
ActiveWindow.SelectedSheets.PrintOut Copies:=100, Collate:=False

Ask your IT people for the Actual location of your printer(s) on the
network.

HTH
Mark.