Trying to print to the manuel feeder of the printer, and it doesn't work.....
If I do record a macro and do All my steps it will work but the time after when I will run the macro, that won't work.
Here is my code :
Sub Macro1()
'
' Macro1 Macro
'
'Impression en utilisatn le passe copie de l'imprimante
here is a duct-tape solution if you can't get the code to work: empty the paper tray(s) so the printer looks for the manual feed ...
Nancy Therrien
ASKER
No the user print a lot of thing and need to change the paper color when use the manual feeder
crystal (strive4peace) - Microsoft MVP, Access
just a thought since, to use the manual feed, one would be at the printer anyway ... I do this when I can't get a printer to use the manual feed. I used to print on card stock a lot. This often jammed the printer when it was fed from the tray so it was quickest, in the long run, to feed it manually.
and the printer will automatically use manual. Or you can pick another size you don't have a tray for.
Nancy Therrien
ASKER
In my printer I have, letter, legal and 11x17 and 1 papertray............ I can't use what you suggest.
this is my code now : With Application
sCurPrinter = .ActivePrinter ' Store current printer.
.ActivePrinter = "Konica ManualFeed sur Ne09:" ' Change Printers.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
' ActiveDocument.PrintOut ' Print the active document.
.ActivePrinter = sCurPrinter ' Set printer back to current.
End With
Application.PrintCommunication = True
It is doing something, we see the printer name changing but It won't print anywhere........
Because trays are tied to sizes, if you pick one you don't have, manual will be used. There are about 50 sizes on this list, including "custom" ... so surely there is one your printer does not have?