Changing printer defaults in Excel Worksheets
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.
|