Printing Icons

Forums: Computers, Batch-Printing, Batch Printing, Printing Icon, Printer Icon
Email this Topic • Print this Page

In MicrosoftWord you can call up a group of icons representing files and folders within a certain "area" (e.g., My Documents).

My question is, how can I print as one document that group of icons?

Topic Stats
Top Replies
Link to this Topic

Type: Discussion • Score: 3 • Views: 1,073 • Replies: 7

No top replies

Batch printing Word documents
What you're trying to do would be called batch printing.

Here are a few programs that can do it for you. They're not free (though I think they all have trial versions available), but they'll do batch printing for Word documents & a number of other file types:

SilentPrint :: www.funasset.com/SilentPrint.htm
Batch & Print Pro :: www.traction-software.co.uk/batchprint/index.html
Batch Doc Print :: www.awises.com

Here's one that doesn't support .doc but does support .rtf as well as many other file types:
AutoPrint Pro :: www.cgisys.cz/autoprint.htm

You could also write a Word macro or Windows Scripting Host script that'll do what you're after, though the programs above should offer more control, ease of use & versatility.

0 Replies

You're probably not interested in programming a Word macro to do it for you, but for anyone who is, here's a couple code snippets that might help you on your way...

Here's a Word macro that prints the document then closes it:

Code:

Sub PrintAllOpenDocs()

'

' Macro created 06/11/99 

'

For Each openDoc In Documents

    With openDoc

        .PrintOut

        .Close

    End With

Next openDoc



End Sub

And here's a macro to open all .doc's from a specific folder:

Code:

Sub OpenAll()

'

' OpenAll Macro

' Macro recorded 04/05/00

'

ChDir "c:\yourpath\"



Set fs = Application.FileSearch

With fs

    .LookIn = "C:\yourpath"

    .FileName = "*.doc"

    If .Execute > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

        For i = 1 To .FoundFiles.Count

            MsgBox .FoundFiles(i)

        Next i

        

    Else

        MsgBox "There were no files found."

    End If



End With

    

End Sub

0 Replies

Do you want to print the documents contained in the folders, or a picture of the icons?

0 Replies

I want to print the icons.

0 Replies

Ah... my bad... well one thing you can do is the following:

- Go to the Open dialog where it shows all the icons
- Press Alt+PrintScreen
- Cancel the Open dialog and in Word click Edit>Paste

If that doesn't get you what you're trying to do either, lemme know in a bit more detail what you're after...maybe it's something that can be done pretty easily..

0 Replies

Developer-
Thank you!

It works.

0 Replies

Yer weccum.

0 Replies

Printing Icons

Related Topics

Quick Links

My Account

able2know