Como puedo mandar una impresion a otra impresora con vb6

[Avellaneda]

Sí! Es como te dice David, pero en vez de buscar por el índice (que a priori no lo conoces) puedes buscar la impresora por el nombre

Código:

Dim p As Printer
If Printers.Count > 0 Then
    For Each p In Printers
        If p.DeviceName = "cutePDF Writer" Then
            Set Printer = p
            SetDefaultPrinter = True
            Exit For
        End If
    Next p
End If