ImpresoraMatricial
Publicado por Estela (2 intervenciones) el 21/07/2011 20:08:58
Hola, cambie la version de PB 5.0 al 11.5, pero en la impresion de los cheques el tamaño de la letra se ha reducido.
Se recupero el datawindows de la version anterior, luego se actualizo al PB 11.5, tambien se cambio en el datawindows el tamaño de letra de "Currier 10Cps" a "Currier 12Cpi", y se cambio la especificaciones en la misma impresora (Font, Pitch), pero continua igual, ¿Alguna sugerencia?
..................................
ob = PrintOpen( )
ZZZ = 0
PrintDefineFont(Job, 1, "Currier 12Cpi", 150, 50, Default!, Modern!, FALSE, FALSE)
PrintDefineFont(Job, 2, "Currier 12Cpi", 180, 50, Default!, Modern!, FALSE, FALSE)
PrintDefineFont(Job, 3, "Currier 12Cpi", 180, 700, Default!, Modern!, FALSE, FALSE)
FOR YyY = 1 TO XxX //- 1
//FECHAS
/*variable [?] / izquierda / replica / alto / tanaño de letra */
PrintText(Job,dia[YyY], 750, (ZZZ + 170), 1)
PrintText(Job,mes[YyY], 1150, (ZZZ + 170), 1)
PrintText(Job,ano[YyY], 1550, (ZZZ + 170), 1)
PrintText(Job,"Lima,", 4800, (ZZZ + 130), 2)
PrintText(Job,dia[YyY], 5520, (ZZZ + 130), 2)
PrintText(Job,mes[YyY], 5920, (ZZZ + 130), 2)
PrintText(Job,ano[YyY], 6320, (ZZZ + 130), 2)
//COMPROBANTE
PrintText(Job,docum[YyY], 150, (ZZZ + 1250), 1)
//RAZON SOCIAL
PrintText(Job,LEFT(razon[YyY],15), 650, (ZZZ + 470), 1)
PrintText(Job,MID(razon[YyY],16,20), 80, (ZZZ + 650), 1)
PrintText(Job,MID(razon[YyY],36,20), 80, (ZZZ + 780), 1)
PrintText(Job,LEFT(razon[YyY],55), 2750, (ZZZ + 640), 3)
//IMPORTE EN LETRAS
PrintText(Job,LEFT(letra[YyY],60), 2350, (ZZZ + 930), 3)
//IMPORTES
importe1 = right("***************"+string(neto[YyY]),15)
importe2 = right("********************"+string(neto[YyY]),20)
PrintText(Job,importe1, 700, (ZZZ + 2170), 2)
PrintText(Job,importe2, 7350, (ZZZ + 80), 3)
ZzZ = ZzZ + 2800
IF ZzZ >= 8310 THEN
ZzZ = 0
PrintPage(Job)
END IF
NEXT
PrintClose(Job)
................................
Se recupero el datawindows de la version anterior, luego se actualizo al PB 11.5, tambien se cambio en el datawindows el tamaño de letra de "Currier 10Cps" a "Currier 12Cpi", y se cambio la especificaciones en la misma impresora (Font, Pitch), pero continua igual, ¿Alguna sugerencia?
..................................
ob = PrintOpen( )
ZZZ = 0
PrintDefineFont(Job, 1, "Currier 12Cpi", 150, 50, Default!, Modern!, FALSE, FALSE)
PrintDefineFont(Job, 2, "Currier 12Cpi", 180, 50, Default!, Modern!, FALSE, FALSE)
PrintDefineFont(Job, 3, "Currier 12Cpi", 180, 700, Default!, Modern!, FALSE, FALSE)
FOR YyY = 1 TO XxX //- 1
//FECHAS
/*variable [?] / izquierda / replica / alto / tanaño de letra */
PrintText(Job,dia[YyY], 750, (ZZZ + 170), 1)
PrintText(Job,mes[YyY], 1150, (ZZZ + 170), 1)
PrintText(Job,ano[YyY], 1550, (ZZZ + 170), 1)
PrintText(Job,"Lima,", 4800, (ZZZ + 130), 2)
PrintText(Job,dia[YyY], 5520, (ZZZ + 130), 2)
PrintText(Job,mes[YyY], 5920, (ZZZ + 130), 2)
PrintText(Job,ano[YyY], 6320, (ZZZ + 130), 2)
//COMPROBANTE
PrintText(Job,docum[YyY], 150, (ZZZ + 1250), 1)
//RAZON SOCIAL
PrintText(Job,LEFT(razon[YyY],15), 650, (ZZZ + 470), 1)
PrintText(Job,MID(razon[YyY],16,20), 80, (ZZZ + 650), 1)
PrintText(Job,MID(razon[YyY],36,20), 80, (ZZZ + 780), 1)
PrintText(Job,LEFT(razon[YyY],55), 2750, (ZZZ + 640), 3)
//IMPORTE EN LETRAS
PrintText(Job,LEFT(letra[YyY],60), 2350, (ZZZ + 930), 3)
//IMPORTES
importe1 = right("***************"+string(neto[YyY]),15)
importe2 = right("********************"+string(neto[YyY]),20)
PrintText(Job,importe1, 700, (ZZZ + 2170), 2)
PrintText(Job,importe2, 7350, (ZZZ + 80), 3)
ZzZ = ZzZ + 2800
IF ZzZ >= 8310 THEN
ZzZ = 0
PrintPage(Job)
END IF
NEXT
PrintClose(Job)
................................
Valora esta pregunta
0