RE:IMPRIMIR EN MATRICIAL EN VFP SE VOLVIO MAGIA!!!
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