Hola problema con Impresión
Hola, quiero mandar a imprimir un archivo de texto mediante código y no se como hacerlo, y me gustaría saber como Ingresar datos a un Archivo de tipo estructura, la estructura es
Type est
Código
Nombre
end type
¿Cómo Agrego datos?
Type est
Código
Nombre
end type
¿Cómo Agrego datos?
Respuesta de xabi
1
Para la impresión prueba con esto:
Private Sub PrintTXTFile(FileName As String)
Dim x As Integer
Dim s As String
x = FreeFile
On Error GoTo hndlError
Open FileName For Input As x
Do While Not EOF(x)
Line Input #x, s
Printer.Print s
Loop
Printer.EndDoc
Close #x
Exit Sub
hndlError:
MsgBox "Error :" & Err.Description, vbCritical, "Imprimiendo archivo..."
End Sub
En cuanto a añadir datos:
'En un módulo declara lo siguiente
Type est
Codigo as String
Nombre as String
end type
public TuEst() as est
'en donde te haga falta
redim tuest(9)
tuest(0).codigo="1"
tuest(0).nombre="aaa"
tuest(1).codigo="2"
tuest(1).nombre="bbb"
tuest(2).codigo="3"
tuest(2).nombre="ccc"
'si quieres añadirle elementos sin perder los existentes
redim preserve tuest(12)
Private Sub PrintTXTFile(FileName As String)
Dim x As Integer
Dim s As String
x = FreeFile
On Error GoTo hndlError
Open FileName For Input As x
Do While Not EOF(x)
Line Input #x, s
Printer.Print s
Loop
Printer.EndDoc
Close #x
Exit Sub
hndlError:
MsgBox "Error :" & Err.Description, vbCritical, "Imprimiendo archivo..."
End Sub
En cuanto a añadir datos:
'En un módulo declara lo siguiente
Type est
Codigo as String
Nombre as String
end type
public TuEst() as est
'en donde te haga falta
redim tuest(9)
tuest(0).codigo="1"
tuest(0).nombre="aaa"
tuest(1).codigo="2"
tuest(1).nombre="bbb"
tuest(2).codigo="3"
tuest(2).nombre="ccc"
'si quieres añadirle elementos sin perder los existentes
redim preserve tuest(12)
