Results 1 to 5 of 5
  1. #1
    Star Lounger
    Join Date
    Feb 2001
    Location
    Cascais, Portugal
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Macro for print options (2000/W 98SE)

    I often want to print e-mail, I want to use portrait, econofast, greyscale printing on my HP 670C Deskjet

    Can anyone help me to create a macro to do this??

    Thanks a lot

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Macro for print options (2000/W 98SE)

    How do you set these settings manually? They don't seem to be part of the Page Setup in Outlook. Are they part of the Windows printer properties? If so, maybe it would be easiest to add a new printer (which is the same printer, really) and set it for the new settings. Does that work?

  3. #3
    Star Lounger
    Join Date
    Feb 2001
    Location
    Cascais, Portugal
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Macro for print options (2000/W 98SE)

    Tried it - doesn't work, since default is preset by HP, but thanks for idea
    Settings are set manually by selecting printer properties dialog, then setup then 'print in grayscale' + 'econofast'

    Can you help any further? I'd really appreciate it.

  4. #4
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Macro for print options (2000/W 98SE)

    Well... Visual Basic has a keystroke generator called SendKeys that can imitate key presses. However, this is tricky to program because of timing issues (e.g., it takes a moment to open the dialog, to navigate the tabs, etc.), and since I don't have this printer, I can't really test it.

    You might want to review this HP support doc and see if it helps: <A target="_blank" HREF=http://www.hp.com/cposupport/printers/support_doc/bpd05808.html>HP DeskJet Printers - Changing the Default Settings in the Printer Driver</A>

    This one might come in handy some day, too: <A target="_blank" HREF=http://www.hp.com/cposupport/printers/support_doc/bpa00317.html>HP Inkjet Print Cartridges - Getting Ink Stains off of Hands and out of Fabric</A> <img src=/S/wink.gif border=0 alt=wink width=15 height=15>

  5. #5
    Star Lounger
    Join Date
    Feb 2001
    Location
    Cascais, Portugal
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Macro for print options (2000/W 98SE)

    Hey - the HP support doc. helps but is not the ideal solution.
    In Word 2000 the following macro prints 'econoprint' + grayscale, but a similar macro in O2000 returns 'Run-time error '438'

    Sub econoprint()
    '
    ' econoprint Macro
    ' Macro recorded 8/1/01 by K.M.H.Coleman
    '
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    End Sub


    Anything else you can think of I'd be most grateful for - don't think I know enough about VB to use/try SendKeys

    best regards

Posting Permissions

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