Imprimir un reporte
Hola amigo he creado un reporte en crystal report 9 es una factura, ahora no se como hago para que en mi aplicacion creada en vb6 se pueda imprimir la factura que estoy realizando. Te agradeceria cualquier informacion o colaboracion
1 Respuesta
Respuesta
1
private sub Command1_Click()
PrintTheFile "c:\autoexec.bat"
end sub
Public Sub PrintTheFile(FileToPrint As String)
Dim sTemp1 As String, sTemp2 As String, ii As Long, jj As Integer, i As Integer
Close #1: Close #2
Open FileToPrint For Binary As #1: Open Printer.Port For Binary As #2
ii = LOF(1) \ 8192: jj = LOF(1) Mod 8192: sTemp2 = String(8192, " ")
For i = 1 To ii: sTemp1 = sTemp2: Get #1, , sTemp1: Put #2, , sTemp1: Next
sTemp1 = String(jj, " ")
Get #1, , sTemp1: Put #2, , sTemp1
Close #1: Close #2
End Sub
PrintTheFile "c:\autoexec.bat"
end sub
Public Sub PrintTheFile(FileToPrint As String)
Dim sTemp1 As String, sTemp2 As String, ii As Long, jj As Integer, i As Integer
Close #1: Close #2
Open FileToPrint For Binary As #1: Open Printer.Port For Binary As #2
ii = LOF(1) \ 8192: jj = LOF(1) Mod 8192: sTemp2 = String(8192, " ")
For i = 1 To ii: sTemp1 = sTemp2: Get #1, , sTemp1: Put #2, , sTemp1: Next
sTemp1 = String(jj, " ")
Get #1, , sTemp1: Put #2, , sTemp1
Close #1: Close #2
End Sub