Pode usar esse método p/setar a sua impressora, VOCE IRÁ PRECISAR CRIAR UMA BASE (Impressora_Rel) COM OS CAMPOS RELATORIO E IMPRESSORA:

 

Function F_Setar_Impres(Nome_Relatorio As String) As Boolean
'seta a impressora especifica para o objeto printer
    On Error GoTo Err_F_Setar_Impres
    Dim X As Printer, T_Teste As String
    Dim Rc_Temp As Recordset, T_Cont As Long
   
    Set Rc_Temp = Base_Termin.OpenRecordset("SELECT IR.* FROM Impressora_Rel AS IR WHERE (((IR.Relatorio)='" & Nome_Relatorio & "'));")
    If Rc_Temp.RecordCount = 0 Then
        T_Teste = Printer.DeviceName
    Else
        For Each X In Printers
            If X.DeviceName = Rc_Temp("Impressora") Then
                T_Cont = 1
                Do Until Printer.DeviceName = Rc_Temp("Impressora")
                    If T_Cont > 10 Then GoTo Err_F_Setar_Impres
                    Set Printer = X
                    T_Cont = T_Cont + 1
                Loop
                F_Setar_Impres = True
                Exit Function
            End If
        Next
    End If
    Msgbox "Não Existe uma impressora especifica para este Relatorio, usando a impressora Padrão!"

    F_Setar_Impres = True
    Exit Function

Err_F_Setar_Impres:
    If Err = 484 Then
        Msgbox "Não existe impressora instalado em seu computador"
    Else
        Msgbox"Não foi possivel encontrar a impressora para imprimir"
    End If
End Function

Open "LPT1" For Output As #1
        DoEvents
        LINHA = Julio 
        Print #1, LINHA
        Close #1

Como que eu faria para colocar essa função aqui dentro do meu form já q eu estou usando LPT1?

 

Desde já agradeço pela ajuda,

 

Julio Cezar Bueno Ribeiro

UTILIZO ESSA FUNÇÃO PARA DEFINIR A IMPRESSORA PADRÃO PARA IMPRESSÃO NO MÉTODO:

 

PRINTER.PRINT variável