Consulting

Results 1 to 7 of 7

Thread: Solved: Microsoft Office Document Image Writer (Office 2003)

  1. #1
    Administrator
    VP-Knowledge Base
    VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,478
    Location

    Solved: Microsoft Office Document Image Writer (Office 2003)

    A new application to me.
    I can send a file to print to the image writer by VBA. Can I automate the saving to avoid the dialog box which appears?
    I've played around with PDF995 which does similar printing, which requires manipluation of an INI file but this programme is not available to me in another workplace.
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.


    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'

  2. #2
    VBAX Expert xCav8r's Avatar
    Joined
    May 2005
    Location
    Minneapolis, MN, USA
    Posts
    912
    Location

  3. #3
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,478
    Location
    Thanks for that
    Excel
    [VBA]Sub Macro1()
    Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne01:"
    ActiveSheet.PrintOut PrToFileName:="C:\Atest1.mdi"
    End Sub
    [/VBA]
    Word
    [VBA]Sub Macro1()
    ActivePrinter = "Microsoft Office Document Image Writer"
    Application.PrintOut OutputFileName:="C:\Atest2.mdi"
    End Sub
    [/VBA]
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.


    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'

  4. #4

    help

    i am trying to do the same thing but in access. i can't find how to do it anywhere
    can anyone help

    thanks


    Quote Originally Posted by mdmackillop
    Thanks for that
    Excel
    [VBA]Sub Macro1()
    Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne01:"
    ActiveSheet.PrintOut PrToFileName:="C:\Atest1.mdi"
    End Sub
    [/VBA]
    Word
    [VBA]Sub Macro1()
    ActivePrinter = "Microsoft Office Document Image Writer"
    Application.PrintOut OutputFileName:="C:\Atest2.mdi"
    End Sub
    [/VBA]

  5. #5
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,478
    Location
    Hi Mosca,
    I did once find a utility to change printers in access, which seems to be a pig of a thing to do. I butchered the code for my own purposes, but I'll see if I can find the original. It might be worth asking about changing active printer in the Access forum, as there may be a better (simpler) way to do it.
    Regards
    MD

    Have a look here http://www.mvps.org/access/reports/rpt0009.htm
    Last edited by mdmackillop; 11-06-2005 at 10:12 AM. Reason: Link added
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.


    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'

  6. #6
    i am able to change the printer and print to the adobe printer. however i can't put a file name when it asks for it
    thanks

  7. #7
    VBAX Regular andrew93's Avatar
    Joined
    Aug 2005
    Location
    Auckland, New Zealand
    Posts
    68
    Location
    Hi

    I recently did exactly the same thing involving creating a pdf document and resetting the default printer in Access - the story of how I did it is in this thread :
    http://www.vbaexpress.com/forum/showthread.php?t=6210

    But be aware that I did modify the code slightly to accomodate what I was doing - especially the parts with the unique_ID and entity_ID although there is a link to the original code.

    HTH, Andrew

Posting Permissions

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