sending documents to the printer

[locutus]

I need to write a program that checks a directory every couple of seconds and if a text file has been dumped into it. If so this text file needs to be sent to the printer and printed out as hard copy.

What are the commands for sending a whole file / document to the printer. And is there a free ware program that already does this ( ie polling a named dir for documents to reprint ) after theres no point in reinventing the wheel.

Thanks

[peet]

I wrote the prog for u

Option Explicit
 
Private Sub Command1_Click()
    Dim sFileName As String
    Dim sFullFilename As String
    Dim sTextFilePath As String
    Dim sBackPath As String
    Dim s As String
    
    sTextFilePath = "C:\TEXTFILES"
    sBackPath = sTextFilePath & "\bak"
 
    While Dir(sTextFilePath & "\*.TXT") <> ""
        sFileName = Dir(sTextFilePath & "\*.TXT")
        sFullFilename = sTextFilePath & "\" & sFileName
        s = GetFileContents(sFullFilename)
        Printer.Print s
        If Dir(sBackPath, vbDirectory) = "" Then MkDir sBackPath
        FileCopy sFullFilename, sBackPath & "\" & sFileName
        Kill sFullFilename
    Wend
End Sub
Private Function GetFileContents(fileName As String) As String
    If Dir(fileName) <> "" Then
        Open fileName For Binary As #1
            GetFileContents = Input(LOF(1), 1)
        Close #1
    End If
End Function

just move the code in the command button to a Timer.

[peet]

hi again, just realized, this will print all the files as one doc... add this line :

Printer.EndDoc

after the

Printer.Print s

[locutus]

cheers m8 , thats just what I was after.
Much appreciated

[peet]

good

let me know if u get into any problems with it .