Visual Basic - Problema ocx hasar para impresora SMH/PT-1000 F

Public Function HasarSegundaDameUltimoUsado(tipoComprobante As String, letra As String) As String

Dim TipoDocumentoHs As String

Dim nro As Long

Dim Cone As String

Dim puerto As Integer

Select Case DameTipoConex(CInt(mRec.ImpFisc))

    Case "USB"

         Cone = "127.0.0.1"

         puerto = 6000

         HASARNG.Conectar Cone, puerto, 15000, 15000

    Case "COM"

         Cone = "127.0.0.1"

         puerto = 6000

         HASARNG.Conectar Cone, puerto, 15000, 15000

    Case "RED"

         Cone = DameIPFiscal(CInt(mRec.ImpFisc))

         HASARNG.Conectar Cone

End Select

Select Case tipoComprobante

    Case "FC"

        Select Case letra

            Case "A"

                    TipoDocumentoHs = "1"

            Case "B"

                    TipoDocumentoHs = "6"

            Case "C"

                    TipoDocumentoHs = "11"

        End Select

    Case "NC"

            Select Case letra

            Case "A"

                    TipoDocumentoHs = "3"

            Case "B"

                    TipoDocumentoHs = "8"

            Case "C"

                    TipoDocumentoHs = "13"

        End Select

    Case "ND"

        Select Case letra

            Case "A"

                    TipoDocumentoHs = "2"

            Case "B"

                    TipoDocumentoHs = "7"

            Case "C"

                    TipoDocumentoHs = "12"

        End Select

    Case "RC"

        Select Case letra

            Case "A"

                    TipoDocumentoHs = "4"

            Case "B"

                    TipoDocumentoHs = "9"

            Case "C"

                    TipoDocumentoHs = "15"

        End Select

End Select

Dim resp As HasarArgentina.RespuestaConsultarEstado

If TipoDocumentoHs <> "" Then

-------------------------------------------------------------------------------

resp = HASARNG.ConsultarEstado(TipoDocumentoHs)

---------------------------------------------------------------------------------

nro = resp.NumeroUltimoComprobante

 HasarSegundaDameUltimoUsado = format(CLng(nro), "0000000#")

Else

 HasarSegundaDameUltimoUsado = "00000000"

End If

End Function

SET CurrentDir="%~dp0"

ECHO The current file path this bat file is executing in is the following:

ECHO %CurrentDir%

copy %~dp0HasarArgentina.Ocx %SystemRoot%\sysWOW64\HasarArgentina.Ocx

copy %~dp0MSWINSCK.OCX %SystemRoot%\sysWOW64\MSWINSCK.OCX

copy %~dp0ASYCFILT.DLL %SystemRoot%\sysWOW64\ASYCFILT.DLL

copy %~dp0COMCAT.DLL %SystemRoot%\sysWOW64\COMCAT.DLL

copy %~dp0MSSTKPRP.DLL %SystemRoot%\sysWOW64\MSSTKPRP.DLL

copy %~dp0msvbvm60.dll %SystemRoot%\sysWOW64\msvbvm60.dll

copy %~dp0msxml6.dll %SystemRoot%\sysWOW64\msxml6.dll

copy %~dp0OLEAUT32.DLL %SystemRoot%\sysWOW64\OLEAUT32.DLL

copy %~dp0OLEPRO32.DLL %SystemRoot%\sysWOW64\OLEPRO32.DLL

copy %~dp0VB6STKIT.DLL %SystemRoot%\sysWOW64\VB6STKIT.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\HasarArgentina.Ocx

Regsvr32.exe %SystemRoot%\sysWOW64\MSWINSCK.OCX

Regsvr32.exe %SystemRoot%\sysWOW64\ASYCFILT.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\COMCAT.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\MSSTKPRP.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\msvbvm60.dll

Regsvr32.exe %SystemRoot%\sysWOW64\msxml6.dll

Regsvr32.exe %SystemRoot%\sysWOW64\OLEAUT32.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\OLEPRO32.DLL

Regsvr32.exe %SystemRoot%\sysWOW64\VB6STKIT.DLL