[Resolvido]Impressão em Rede

Bom dia a todos

Estou com dificuldade para imprimir um cupom não fiscal em rede, quando mando o comando para impressão ela não para como é determinado no módulo: Uso o seguinte módulo para impressão.

Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click
Dim stDocName As String
stDocName = "RltCuponNaoFiscal"
DoCmd.OpenReport stDocName, acNormal
Dim PortImp As String
PortImp = "\\Caixa\lx300"
Open PortImp For Output As #1
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""

Close #1

Exit_Comando7_Click:
Exit Sub
Err_Comando7_Click:
End Sub

Alguém teria alguma luz para me dar.

Sou grato pela atenção de todos.

Parece que não. Vou dar o tópico por Resolvido.

Port = "Lpt1"

Open "LPT1" For Output As #1

Print #1, ""
Print #1, ""
Close #1

sua empressora na rede esta \\servidor\lx300
em todos os pcs q nao estao no servidor digita isto aqui abaixo
net use lpt1 \\servidor\lx300 /persistent:yes

blz tudo vai dar certo