Solved

Printing group of files

Posted on 1998-05-28
6
167 Views
Last Modified: 2010-05-03
I have a group of files containing "canned" questions for each quote at work. I want to create a program that will print the files by possibly choosing an option button and hitting command button. I'm starting out by using one group of files and going to add option buttons etc. later.
I don't really know the best way to start. Do I need to open each file one at a time and then print the files by sending keystrokes to the application. I'm fairly new and am stuck as to a starting point. I would appreciate any suggestions. I have been able to send keystrokes to one of the files and get it to print, but there has got to be a better way.
Thanks for the help..
0
Comment
Question by:darrel
6 Comments
 
LVL 1

Expert Comment

by:web_crusher
ID: 1461976
is your files are ascii based - if not send me the type of file you would like to print
i'll send you the procedure!

0
 
LVL 18

Expert Comment

by:deighton
ID: 1461977
I'm sure we can help!  More infoe needed.

How did you create the files - are they in a text format i.e. viewable via Notepad for example.

Are you looking to retrieve text from the file and the dispaly it in a label or text box so the user can read and answer the question.

You can open text files in VB using

dim x as string

OPEN "quet.txt" for input as #1
LINE INPUT #1, x1      'inputs a line of text from the file
LINE INPUT #1,x2      'input next line

Text1.txt = x1                                'text box allowing multiple lines
Text1.txt = Text1.txt + vbcrlf + x2

close #1

THE above is a possible example of what I imagine you want to do


Look forward to hearing more
0
 

Author Comment

by:darrel
ID: 1461978
There are 4 WinWord files and 3 PowerPoint files. The WinWord files are just .doc and the power point are presentation files. If you could help me with the WinWord files, I can surely figure out the PowerPoint. Currently I must open all files print each and then close them.
Thanks for the help.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
LVL 6

Accepted Solution

by:
clifABB earned 150 total points
ID: 1461979
To print your four word files, add a reference to Word (Project/References)
Then add this code (Replace Filename1.doc through Filename4.doc with the path\filnames you use):
  Dim wwdocs As New Word.Application
 
  wwdocs.Documents.Open "Filename1"
  wwdocs.PrintOut
  Do Until wwdocs.BackgroundPrintingStatus = 0
    DoEvents
  Loop
  wwdocs.Quit
  wwdocs.Documents.Open "Filename2"
  wwdocs.PrintOut
  Do Until wwdocs.BackgroundPrintingStatus = 0
    DoEvents
  Loop
  wwdocs.Quit
  wwdocs.Documents.Open "Filename3"
  wwdocs.PrintOut
  Do Until wwdocs.BackgroundPrintingStatus = 0
    DoEvents
  Loop
  wwdocs.Quit
  wwdocs.Documents.Open "Filename4"
  wwdocs.PrintOut
  Do Until wwdocs.BackgroundPrintingStatus = 0
    DoEvents
  Loop
  wwdocs.Quit

0
 
LVL 6

Expert Comment

by:clifABB
ID: 1461980
Just as an added note.  You might want to create a subroutine to print a file from Word, something like this:

Sub PrintDocFile(sFilename As String)
  Dim wwDocs As New Word.Application
 
  wwDocs.Documents.Open sFilename
  wwDocs.PrintOut
  Do Until wwDocs.BackgroundPrintingStatus = 0
    DoEvents
  Loop
  wwDocs.Quit
End Sub

And then you can call it passing the name of the file:
PrintDocFile "c:\Filename1.doc"
PrintDocFile "c:\Filename2.doc"
PrintDocFile "c:\Filename3.doc"
PrintDocFile "c:\Filename4.doc"

0
 

Author Comment

by:darrel
ID: 1461981
thanks for the help. I'll do the same for the powerpoint files.

0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question