Manejo del Método Printer y Bases de Datos
Uso del Método Printer involucrando sus funciones. Generando los reportes divisiones de lineas y los reportes salgan tanto verticalmente como horizontalmente. También el buen manejo de las bases de datos haciendo altas bajas, modificaciones, eliminaciones y actualizaciones
Respuesta de Roberto Alvarado
1
Este es un ejemplo del Objeto printer:
NumArch = FreeFile
Open App.Path & "\LMesas.txt" For Input As #NumArch
Printer.Orientation = vbPRORPortrait
Printer.PaperSize = vbPRPSLetter 'Tipo de Papel
Printer.Font.Name = "Courier New"
Printer.Font.Size = 7
Printer.CurrentX = 720
Printer.CurrentY = 720
Printer.Print "" 'Space$(10)
Do
Line Input #NumArch, strLinea
If strLinea = vbFormFeed Then
Printer.CurrentX = 720
Printer.CurrentY = 720
Printer.NewPage
strLinea = ""
End If
Printer.Print Space$(5) & strLinea
If EOF(1) Then
Exit Do
End If
Loop
Printer.EndDoc
Close #NumArch
NumArch = FreeFile
Open App.Path & "\LMesas.txt" For Input As #NumArch
Printer.Orientation = vbPRORPortrait
Printer.PaperSize = vbPRPSLetter 'Tipo de Papel
Printer.Font.Name = "Courier New"
Printer.Font.Size = 7
Printer.CurrentX = 720
Printer.CurrentY = 720
Printer.Print "" 'Space$(10)
Do
Line Input #NumArch, strLinea
If strLinea = vbFormFeed Then
Printer.CurrentX = 720
Printer.CurrentY = 720
Printer.NewPage
strLinea = ""
End If
Printer.Print Space$(5) & strLinea
If EOF(1) Then
Exit Do
End If
Loop
Printer.EndDoc
Close #NumArch
