Solved

Printing group of files

Posted on 1998-05-28
6
165 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Use Multiple Forms 4 48
SSRS expression Issue finding a string 10 66
SLMGR Switches Are Not Working On KMS Host 3 67
how to know if my Checkbox is True in VB6.0? 9 38
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
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…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

911 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now