Macro for Samsung ML1450 on XP

  SamHaz 11:03 07 Oct 04
Locked

I want to set up a macro which will enable me to print one copy from multi-purpose tray (top) (which will hold many sheets of paper)and then to print one copy from tray 1 (bottom tray). I use Microsoft Office 97 (word and excel).

Can anybody help me please.

Thanks

  keith-236785 11:11 07 Oct 04

Sub bothtrays()<- (<- = enter)
With ActiveDocument.PageSetup <-
.FirstPageTray = wdPrinterUpperBin <-
.OtherPagesTray = wdPrinterUpperBin <-
End With <-
ActiveDocument.PrintOut <-
With ActiveDocument.PageSetup <-
.FirstPageTray = wdPrinterLowerBin <-
.OtherPagesTray = wdPrinterLowerBin <-
End With <-
ActiveDocument.PrintOut <-
End Sub <-

if you copy and paste this into notepad and save,remember to remove all the <-'s

this is a macro from a computer magazine (march edition i seem to recall), dont know much about macros but maybe someone else can help adapting it for your purpose. it was written to do exactly what you want.

good luck

  keith-236785 11:15 07 Oct 04

site formatting screwed that one up lol lets try again


Sub bothtrays()<- (<- = enter)

With ActiveDocument.PageSetup <-

.FirstPageTray = wdPrinterUpperBin <-

.OtherPagesTray = wdPrinterUpperBin <-

End With <-

ActiveDocument.PrintOut <-

With ActiveDocument.PageSetup <-

.FirstPageTray = wdPrinterLowerBin <-

.OtherPagesTray = wdPrinterLowerBin <-

End With <-

ActiveDocument.PrintOut <-

End Sub <-

  keith-236785 11:16 07 Oct 04

also remember to remove the blank lines, or send me an e-mail and i will send the notepad version of this

This thread is now locked and can not be replied to.

Surface Pro (2017) vs Surface Pro 4

20 groundbreaking 3D animation techniques

How to mine Bitcoin on Mac