Muy buenas tardes comunidad
Se que VB6 hoy en dia es muy poco usado, casi ya algo nulo podria decir, pero aun existen aplicaciones viejas hechas que funcionan bien que cuando se presente un percance, toca preguntar incluso hoy en dia.
Actualmente ya no desarrollo nada en VB6, pero tengo viejas cosas hechas en este que no han requerido nucas cosas o hacer nuevas cosas en VB6, lo cual no haria por ser ya un lenguaje obsoleto.
Peo tengo un programa que lo unico que presenta es un problema al momento de enviar a imprimir.
Es un programa que tiene indicado por una BD Access (es un programa pequeno, por eso Access), que tiene indicado imprimir por 2 impresoras dependiendo de la seleccion.
Al enviar a imprimir a la Impresora de inyeccion de tinta, papel bomb20 no hay problema, pero al pedirle imprimir por la impresora de Matriz, no lo hace.
El pograma esta hecho en VB6 y la salida de impresion es un reporte de Crystal Report 8.5 usando un OCX en la ventna llamado CrystalReport1.
Crystal Report me crea un archivo event.log donde me indica el error:
04/13/12, 10:59:30, 4, 0, C:\SIGD\rpt\repGuia.rpt:Error starting print job. Please check your printer or network connection.
El programa fue hecho en Windows XP, pero esta instalado en un Windows 7 Home Premium. Lo curioso es que desintale el programa y lo volvi a instalar, y si imprimio en la de Matriz, pero luego dejo de hacerlo.
El codigo del reporte es este:
CrystalReport1.DataFiles(0) = App.Path & "\db\DGUIAS.mdb"
CrystalReport1.ReportFileName = App.Path & "\rpt\repGuia.rpt"
CrystalReport1.RetrieveDataFiles
CrystalReport1.PrinterCollation = crptUncollated
CrystalReport1.PrinterDriver = DriverImpresoraMatriz
CrystalReport1.PrinterPort = "Ne" & Format(IdImpresoraMatriz, "00")
CrystalReport1.PrinterName = NombreImpresoraMatriz
CrystalReport1.CopiesToPrinter = lbCantidad.Caption
CrystalReport1.Destination = crptToPrinter
CrystalReport1.PrintReport
Es practicamente el unico problema que tiene el programa, que no imprime en la de Matriz. La cual esta conectada Localmente al equipo, mientras que la de inyeccion de tinta o laser esta por red.
Los datos de la impresora los guardo en la BD y los tomo de alli.
A mi si me manda a imprimir si lo hago desde mi Windows 7 Professional, pero no lo hace desde un Windows 7 Home Premium. Aunque repito, al desintalarlo y volverlo a instalar SI llego a imprimir, pero luego dejo de hacerlo.
Exisitira aun algun programador que haya trabajado en VB6 que pueda ayudarme sobre este caso?
Un cordial saludo.
