Visual Basic - FileCopy archivo.txt, LPTn ??

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

FileCopy archivo.txt, LPTn ??

Publicado por Alberto (31 intervenciones) el 13/12/2004 14:25:56
Hola gente

La instrucción FileCopy, no permite usar la palabra reservada "LPT" etc,etc
Como hago para copiar un archivo de texto a una impresora ???

El archivo lo creo desde el programa, lo cierro, y luego la idea es imprimirlo, con lo cual "supuse" hacer un "copy" como en DOS.
Sino es esa la instrucción cual es ?

Saludos a todos y gracias
Alberto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:FileCopy archivo.txt, LPTn ??

Publicado por miguel (1042 intervenciones) el 13/12/2004 17:38:04
La idea es crear el archivo de texto y luego mandarlo a imprimir a tu impresora local espero y te sirva saludos!!!
Private Sub cmdImprimir_Click()
Dim Eje
Eje = Shell("Print C:\ArchivoTexto.txt")
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

no me funcionó

Publicado por Alberto (31 intervenciones) el 13/12/2004 18:20:21
Hola Miguel
GRACIAS POR CONTESTAR, si correcto esa es la idea, pero

no me funciona me dá ERROR 53 "no se ha encontrado el archivo"

Supongo que no me reconoce el "mandato PRINT" del DOS
ni "COPY...."
que te parece puede ser.

gracias y saludos
Alberto

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no me funcionó

Publicado por miguel (1042 intervenciones) el 13/12/2004 19:03:36
Este codigo lo baje de la web no le he probado segun lo que hace es tomar la ruta de archivos que se encuentran en un listbox y los manda a imprimir haciendo un copy al puerto de la impresora utilizando un api espero y te sirva saludos!!!
Public Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)

Public Sub SendFileToPrinter()
Dim FileName As String
Dim s As Long
Dim i As Integer
Const CurPrnPort = "LPT1"
Const CurFolder = "C:"

For i = 0 To frmMain.List.ListCount - 1
If frmMain.List.Selected(i) Then
FileName = CurFolder & "\" & frmFileList.File.List(i)
s = SendToPort(FileName, CurPrnPort, vbNull)
frmMain.List.Selected(i) = False
End If
Next i
End Sub

Public Function SendToPort(sFileName$, sPortName$, lPltFailed&)
Dim s As Long
s = CopyFile(sFileName, sPortName, lPltFailed)
End Function

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar