FoxPro/Visual FoxPro - IMPRIMIR EN MATRICIAL EN VFP SE VOLVIO MAGIA!!!!

Ultimamente nos encontramos con muchos problemas en aplicaciones que requieran utilizar matriciales, ya sean para impresion de chequeras, carnet, o comprobantes de tamaño pequeño difenrente a los standar, con el Report es imposible, pues los saltos van desajustandose, ahora una pareciera que windows nos resulta un problema para este tipo de aplicaciones, pues con windows xp y una EPSON LX-300+ no consigo que me obedesca los tamaños de letras, no puedo imprimir condensado para nada... sera que existe interes que nos faciliten la vida esta gente de Microsoft..? alguien me puede dar una ayuda.... ? agradeceria tanto

Opciones hay varias, te daré dos:

1- Cuando instala la impresora epson lx este te agrega a la lista unos fonts llamados DRAFT10, DRAFT12....

2- La opcion que yo mas uso es hacer mis reportes en Foxpro Para DOS
a) Hacer los reportes en Foxpro Dos
b) Agregarlos al proyecto de Visual foxpro, pero nunca abrirlos desde VFP.
c) Para imprimirlo
REPORT FORM reporte.frx TO FILE archivo.txt ASCII
TYPE archivo.txt >PRN

yo los hago muy artesanalmente con los comando say chr(27)+chr(15) pero no me los acepta

En la impresion de windows no creo que te funcionen esos caracteres.

bueno hay una forma esque tines que colocarlo como funcion asi:

condensas

funtion condensada()
@prow(), @pcol say chr27()+chr(15)
return .t.

normalisas

funtion cancelcondensada()
@prow(), @pcol say chr27()+chr(15)
return .t.

espero te sirva

MUCHAS GRACIAS, YA LO INTENTE, CREO QUE EL PROBLEMA ES DE COMPATIBILIDAD CON EL WINDOWS XT

Gracias por la recomendación

la ultima opicion es crearlo de forma artesa el informe asi:

-las funciones para comprimir la letra y restablecer creas un archivo prg y lo llamas cuando cargues el programa para que tengas las funciones activas en memoria

suerte

este es informe de una factura, contiene comando de clipper que algunos te los acepta vfp
************* FACTURA MEDIA CARTA **************

sele D1
seek bolador
IF !ISPRINTER()
TONE(500,3)
alert("Error:dispositivo fuera de linea") ----estes es comando de clipper
exit
close all
restscreen(0,0,24,80,Pp4) ----estes es comando de clipper
ENDIF
*asignacion de variables ***
store fecven to fev
store fecven1 to feven
*****************************
set console oFF
SET DEVICE TO PRINTER
set printer on
***********************

*****************************
set console oFF
SET DEVICE TO PRINTER
set printer on
***********************
IF FOUND ()
LETRA10()
negrita()
@0,1 say CIANOM
cancelnegrita()
LETRA12()
@0,44 say"Fecha:"; @0,51 say ffv1 ; @0,66 say"Vence:"; @0,72 say ffv2 ; tf = (ffv2-ffv1)
@1,1 Say"NIT:";@1,7 SAY NITCIA ;@1,47 say "PLAZO:" ; @1,54 SAY TF PICTURE"999" ; @1,60 say "D¡as"; @1,66 SAY"FACTURA CAMBIARIA DE"
@2,1 SAY CIADIR;@2,66 SAY"COMPRAVENTA No.";@2,81 Say BOLADOR Picture "99999999"
@3,1 say"Tel‚fono:";@3,11 say ciatel; @3,37 say regi;@3,66 say "Vendedor:" ; @3,82 say codve picture"99" // ; @3,50 say nomve
negrita()
@4,1 SAY ciaresol
cancelnegrita()
? REPLICATE ("-",90)
@6,1 SAY"NOMBRE:";@06,09 SAY Mclei;@6,45 SAY"NIT/CC:";@06,51 say Knit picture"999,999,9999" ; @06,68 say"Codigo:";@06,75 say codc picture"999999"
@7,1 say"DIRECCION:" ; @7,11 SAY Dcl ; @7,45 say "CIUDAD:"; @7,53 SAY CIU
@8,1 say"NEGOCIO:"; @8,10 SAY neg ; @8,45 SAY "TELEFONO:";@8,52 say te ; @08,68 say"Zona:";@08,75 say zna
? REPLICATE ("-",90)
@10,0 say"CODIGO DESCRIPCION UDME Vr.UNIT CAN DTO VDCTO % VR.IVA VR.TOTAL" //; fila = fila + 1
? REPLICATE ("-",90)
endif
sele d2
go top
INDEX ON NREFE TO M_DATAR2
SET ORDER TO 1
fila = 12
totalf = 0; sub = 0 ; it = 0;dv = 0;iv = 0;f1 = 0;TNT = 0
do while .not. eof()
if nfact = bolador .and. ncant > 0
Store nsubt to sb
@fila,0 say nrefe //; @fila,7 say"³"
@fila,7 say Nart //; @fila,33 say"³"
@fila,34 say kclase
@fila,39 say nval Picture"999,999"//;@fila,41 say"³"
@fila,47 say ncant picture "999.9"//;@fila,45 say"³"
@fila,54 say ndes //;@fila,48 say"³"
@fila,57 say nvdes picture"9999999"//;@fila,57 say"³"
@fila,65 say niva //;@fila,61 say"³"
@fila,69 say nviva picture"9999999" //;@fila,69 say"³"
@fila,79 say nsubt1 Picture"99,999,999"
fila++
it = it + 1
sub = sub + sb // sumatoria para el subtotal
tiva = tiva + nviva // sumatoria del iva
sub1 = sub1 + nsubt1 // sumatoria de precio con iva
tdes = tdes + nvdes // sumatoria del descuento
endif
skip
enddo
? REPLICATE ("-",90)
TNT = (sub1-tiva )
@24,02 SAY"RECIBI:______________________"
@25,01 SAY"Esta factura se asimila en todos su efectos"
@25,56 SAY"ITEM" ;@25,77 SAY IT picture "99"
@26,01 SAY"Legales a la letra de Cambio segun el"
@26,56 SAY"SUB-TOTAL: " ;@26,69 SAY TNT picture"999,999,999"
@27,01 SAY"(Articulo.774 del Codigo del Comercio)."
@27,56 say"Descuento:";@27,69 SAY tDES PICTURE"999,999,999"
@28,01 SAY"La no cancelacion de esta factura ocasionara"
@28,56 say"Iva % " ;@28,69 say tiva picture"999,999,999"
@29,01 say"Interes del % mensules"
@29,56 say"VALOR TOTAL: " ;@29,69 say sub1 PICTURE "999,999,999"
@30,01 say"Son:";@30,5 say valletras(sub1)
eject
set printer to
set device to screen
SET PRINTER OFF
* exit
ENDIF
*****

despues me cuentas para ver como te fue

Hola, solucionaste tu problema de impresion en impresoras matriciales?

Yo tengo bastante experiencia en impresiones matriciales ya que casi
todos mis reportes los para es tipo impresoras.Si no has solucionado tu
problema Nos dar una mano mutuamente porque tengo problema al usar el
reporteador.

Saludos,
Cesar Diez-Canseco.
[email protected]

Hola amigos, pero creo que a estas alturas de la tecnologia no podemos estar con cosas artesanales pues....por ejemplo, hay clases y dll para imprimir como impresoras de texto matriciales, como por ejemplo DOSPRINT4 lo malo que cobran. Por ahi en la red eh visto algunos gratis pero que no funcionan muy bien. habra que seguir buscando....ALGUN GENIO QUE PUEDA AYUDAR??????
SI ENCUENTRAN ALGO, PLEASE AVISARME A MI CORREO GRACIAS DESDE YA....