Hi,
For the last two days I've been pulling my hair trying to send an .RTF file (wordpad) to an Intermec label printer from a VB6 program.

Word is not installed on user machine so it has to be Wordpad.

Here are the requirements:

1.set default printer to the Intermec
2.send a specific .rtf file to the printer
3.set default printer back to original printer

I have pretty much done this using the following code
Code:
Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)


Private Sub cmdPrint_Click()
    SetDefaultPrinter "Intermec"	' change default printer to Intermec

    Shell ("write" & " c:\ChinaWarnings\1.rtf" & " /p") ' open WordPad, send file to printer

    Sleep 2000                                  ' wait till print finishes
    SetDefaultPrinter "Kyocera Mita KM-3035 KX" ' change default printer back
End Sub
The only problem is that I need to print multiple copies and I don't think I can specify the "number of pages" using this method as Wordpad doesn't support COM automation.

Maybe there is another method?
Please help, my head hurts...