Results 1 to 4 of 4
  1. #1
    2 Star Lounger
    Join Date
    Mar 2001
    Location
    Idaho, USA
    Posts
    137
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Word Macro (Word 2000)

    Unable to get a macro to work in Word 2000 that worked in Word 97. I'm attempting to create a macro to change the print paper setting to manual feed. It doesn't seem to create that change. I record the macro but it doesn't execute. What am I missing? Carol

  2. #2
    5 Star Lounger
    Join Date
    Jul 2002
    Location
    Toronto, Ontario, Canada
    Posts
    1,139
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Macro (Word 2000)

    Can you post the code that did work in W97 and now doesn't in W2K? We can then see if there are problems with the code.
    --
    Bryan Carbonnell - Toronto <img src=/S/flags/Ontario.gif border=0 alt=Ontario width=30 height=18> <img src=/S/flags/Canada.gif border=0 alt=Canada width=30 height=18>
    Unfortunately common sense isn't so common!!
    Visit my website for useful Word, Excel and Access code, templates and Add-Ins

  3. #3
    2 Star Lounger
    Join Date
    Mar 2001
    Location
    Idaho, USA
    Posts
    137
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Macro (Word 2000)

    I didn't save the code. Just duplicated the recording of the macro in Word 2000 after we upgraded from 97.

  4. #4
    5 Star Lounger
    Join Date
    Jul 2002
    Location
    Toronto, Ontario, Canada
    Posts
    1,139
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word Macro (Word 2000)

    If you are trying to make a permanaent change use:

    Options.DefaultTray = "Manual Feed"

    If you want to have a custom macro to print the Active Document using the Manual Feed Tray, something like this should take care of it

    Dim strOldSetting as String

    <font color=448800>'Save the current setting to restore it when we are done</font color=448800>
    strOldSetting = Options.DefaultTray
    <font color=448800>'Set the tray to manual</font color=448800>
    Options.DefaultTray = "Manual Feed"
    <font color=448800>'Print the Active Document</font color=448800>
    ActiveDocument.PrintOut
    <font color=448800>'Restore setting</font color=448800>
    Options.DefaultTray = strOldSetting
    --
    Bryan Carbonnell - Toronto <img src=/S/flags/Ontario.gif border=0 alt=Ontario width=30 height=18> <img src=/S/flags/Canada.gif border=0 alt=Canada width=30 height=18>
    Unfortunately common sense isn't so common!!
    Visit my website for useful Word, Excel and Access code, templates and Add-Ins

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •