Devi impostare l'oggetto Printer sulla stampante da usare.
Vedi la guida di VB6.

codice:
dim oPrinter as Printer
For each oPrinter in Printers
    If oPrinter.DeviceName = <nome_stampante_da_usare>
        Set Printer = oPrinter
        Exit For
    End If
next
Guarda che ho scritto 'al volo' quindi controlla sulla guida la sintassi.