Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Function GetShortPath(PathSpec As String) As String
            Dim sPath$

  sPath = String(MAX_PATH, 0)
  If GetShortPathName(PathSpec, sPath, MAX_PATH) Then
    GetShortPath = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
  End If
End Function

Call FileCopy("C:\Archivo.txt", "\\PC01\Documentos\Archivo.txt")

           Dim btData As Byte

Open "programa.exe" For Binary As #1

btData = &H7E
Put #1, &H4C663, btData

Close #1

Private Sub cmdPrint_Click()
        Dim csItem
  
  For Each csItem In ListView1.ListItems
    Printer.CurrentX = 350
    Printer.Print csItem.Text
  Next
  
  Call Printer.EndDoc
End Sub