adicione a impressora no micro como impressora compartilhada na rede  

  com um nome fixo             aqui no ex:   DUPLICATA

z=""

   For Each Wprinter In Printers
          If Wprinter.DeviceName = "DUPLICATA" Then
             Set Printer = Wprinter
             z = "S"
             Exit For
          End If
       Next
      
       If z = "" Then
          MsgBox "Atenção não foi encontrada a impressora para impressão de DUPLICATA, favor instalar uma impressora com nome de 'DUPLICATA' TAMANHO DO PAPEL: LARGURA = 2150 E COMPRIMENTO = 1540", vbCritical, WSistema
          MousePointer = 1
          Exit Sub

     else

                          Printer.CurrentX = 4
                Printer.CurrentY = 53
                Printer.Print "MORA DIARIA:"

       End If

 

intendeu ?????

é seguinte vc nao pode capturar uma porta pra impressora..

apenas adicione a impressora no computador

 

Porque se capturar uma Lp1,Lpt2 ou outra porta qualquer nao vai imprimir

Vc só deve usar LPT1,LPT2 ... se for impressora local