Sección de códigos , trucos y ejemplos para visual basic

366 - Imprimir archivo de texto

Ejemplo en visual basic que lee el contenido de un archivo de texto mediante Open / Input , para poder imprimirlo.

Ejemplo

un CommandButton
Indicarle a la rutina " Imprimir ", la ruta del fichero

Código fuente en el form

Option Explicit Private Sub Imprimir(Path As String) Dim Free_File As Integer Dim Datos As String Dim pos As Integer Dim L As String Dim Palabra As String ' número de archivo libre Free_File = FreeFile ' abre el archivo para leerlo Open Path For Input As Free_File ' Almacena los datos del archivo en la variable Datos = Input(LOF(Free_File), Free_File) ' cierra el archivo Close Free_File Do While Len(Datos) > 0 pos = InStr(Datos, vbCrLf) If pos = 0 Then L = Datos Datos = "" Else ' linea L = Left$(Datos, pos - 1) Datos = Mid$(Datos, pos + 2) End If ' palabras Do While Len(L) > 0 ' posición para extraer la palabra pos = InStr(L, " ") If pos = 0 Then Palabra = L L = "" Else Palabra = Left$(L, pos) L = Mid$(L, pos + 1) End If ' verifica que no se pase del ancho de la hoja If (Printer.CurrentX + Printer.TextWidth(Palabra)) <= Printer.ScaleWidth Then ' imprime la palabra Printer.Print Palabra; ' si no imprime en la siguiente linea Else Printer.Print ' verifica que no se pase del alto de la hoja If (Printer.CurrentY + Printer.Font.Size) > Printer.ScaleHeight Then ' nueva hoja Printer.NewPage End If ' imprime la palabra Printer.Print Palabra; End If Loop Printer.Print Loop ' Fin. Manda a imprimir Printer.EndDoc End Sub ' botón que imprime el archivo ''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Call Imprimir("c:\archivo.txt") End Sub

Recursos vb 6.0 - Relacionados

Recursos vb.Net - Relacionados

Imprimir un windows Form en vb.net 2005

Buscar en Recursos vb