Ger
01-07-2013, 07:08 AM
Hello,
is it possible to change the printer settings using vba?
The problem is that the printers by default print both sides and black en white.
If i want to print a spreadsheet with more than 1 sheet i have to change each sheet manualy to print singlesided and in color.
Also the macro seems not to work for setting the print to 1 page.
Sub MACRO1()
Application.PrintCommunication = True
For i = 1 To Sheets.Count
Sheets(i).PageSetup.PrintArea = "$a$1:$o$21"
Sheets(i).PageSetup.FitToPagesTall = 1
Sheets(i).PageSetup.FitToPagesWide = 1
Sheets(i).PageSetup.BlackAndWhite = False
Next
End Sub
Ger
is it possible to change the printer settings using vba?
The problem is that the printers by default print both sides and black en white.
If i want to print a spreadsheet with more than 1 sheet i have to change each sheet manualy to print singlesided and in color.
Also the macro seems not to work for setting the print to 1 page.
Sub MACRO1()
Application.PrintCommunication = True
For i = 1 To Sheets.Count
Sheets(i).PageSetup.PrintArea = "$a$1:$o$21"
Sheets(i).PageSetup.FitToPagesTall = 1
Sheets(i).PageSetup.FitToPagesWide = 1
Sheets(i).PageSetup.BlackAndWhite = False
Next
End Sub
Ger