Printing a text file to a network printer using VB6 1

[CruiseMan]

I have a PC running Win NT4 (sp6) that runs a VB6 procedure that sends a standard text file to a local printer (lpt1).

Shell "cmd /c type C:\MYFILE.TXT > LPT1"

My helpful hardware support group has replaced the local printer with a network printer and the text file no longer prints. I made sure that the new printer is set to the default printer. Other documents print (Word, Excel, etc.) but not the text file. Any input is appreciated.

 

[Bluejay07]

Can you not use something like

... C:\MYFILE.TXT > \\network\printer\

If at first you don't succeed, then sky diving wasn't meant for you!

 

[kermit01de]

or just try this one ...

First you have to declare the API

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

And this should print the file to the default printer

ShellExecute Me.hWnd, "print", "path\filename", "", "", 1

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[kermit01de]

@cruiseman: Any news here? Did you manage it somehow?

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[CruiseMan]

Thanks, Mirko. This API call worked like a charm, the text file is printing on command now. Much appreciated!

John

 

[dilettante]

Or just use the Shell object:

    Const ssfDESKTOP = 0
    With CreateObject("Shell.Application").NameSpace(ssfDESKTOP)
        With .ParseName(FULLPATHOFTEXTFILE)
            .InvokeVerb "print"
        End With
    End With