D
donflak
I am attermpting to use Sendkeys to select duplex printing when my job
prints.
The code I have is:
'
Sheets(Array("DISTRICT ROLL-UP", "FUNC 1", "FUNC 2B", "FUNC 4",
"OTHER", "Functional Summary")).Select
Sheets("DISTRICT ROLL-UP").Activate
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="\
\CLVDOHSXF01\44101C350521N80"
Application.SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}", True
Application.SendKeys "{TAB}" ''' Choose
Finishing tab"
Application.SendKeys "{TAB)" ''' Check "Print
on both sides"
Application.SendKeys "{ENTER}{ENTER}", True
End Sub
The difficulty appears to begin with the "Choose Finishing tab"
command.
Please take a look and see if you can spot any deficiencies.
Thanks in advance for your assistance.
prints.
The code I have is:
'
Sheets(Array("DISTRICT ROLL-UP", "FUNC 1", "FUNC 2B", "FUNC 4",
"OTHER", "Functional Summary")).Select
Sheets("DISTRICT ROLL-UP").Activate
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="\
\CLVDOHSXF01\44101C350521N80"
Application.SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}", True
Application.SendKeys "{TAB}" ''' Choose
Finishing tab"
Application.SendKeys "{TAB)" ''' Check "Print
on both sides"
Application.SendKeys "{ENTER}{ENTER}", True
End Sub
The difficulty appears to begin with the "Choose Finishing tab"
command.
Please take a look and see if you can spot any deficiencies.
Thanks in advance for your assistance.