tipo de letra

[circulocatoli...@gmail.com]

Ayuda ! , con esto... hola amigos, gracias por leer esto.

necesito imprimir en una impresora epson lx 300 , imprimo cheques ahi, me 

pasa que no encuentro bien un tipo de letra que se vea bien, es como que no

las termina bién , la impresora esta bien según me dice el técnico... gracias

alguien si tiene conocimiento de esto.

[Sergio Rojas]

Para una matriz de puntos, lo ideal es usar la impresión directa (modo caracteres) letra condensada

SET CONSOLE OFF

SET PRINTER TO <LPT1:> si es esa

@ xxx,yyy SAY 'Lo que voy a imprimir'

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/7d6816fc-6fd8-4446-ab95-0e75fa3313e9n%40googlegroups.com.

[Ricardo Mata]

Si estás imprimiendo en modo gráfico debes ajustar en la configuración de la impresora para que use la máxima densidad de impresión, no siempre se ajusta automáticamente y la impresión se ve borrosa

Ricardo Mata

Valencia Venezuela 

[circulocatoli...@gmail.com]

Hola gracias ! pero tengo todo hecho en un informe, con tamaño de papel. y el puerto es usv .... creo que no va a funcionar eso que me decis....

[circulocatoli...@gmail.com]

gracias ..  lo voy a probar....

[Cristian Novoa]

Adjunto clase. Todo lo haces con comandos CHR. Mira el manual de la impresora.

*-- Debes hacer una configuración con los comandos CHR generales (inicio, largo de papel, termino, salto de página). Yo tenía para elegir entre dos tipos de impresora.

lcArchImpre = SYS(2015)+".prn"
SET DEVICE TO FILE (lcArchImpre)


@0,0 SAY codigos_impresion("CODIGOS_IMPRESION_INICIO")

IF lee_parametro("LARGO_PAPEL_"+lcDocImp) = "2" && largo papel PERSONALIZADO
lnLineas = VAL(lee_parametro("LARGO_PAPEL_EN_LINEAS_"+lcDocImp))
@PROW(), PCOL() SAY codigos_impresion("CODIGOS_IMPRESION_LONGITUD_PAGINA_LINEAS") + CHR(lnLineas)
ENDIF

* debe hacer una configuración de fila, col, y dato

@fila, col SAY "lo que quiero imprimir, junto a más comandos CHR si quiero"

@PROW()  , PCOL() SAY codigos_impresion("CODIGOS_IMPRESION_TERMINO")
@PROW()+1, 0 SAY codigos_impresion("CODIGOS_IMPRESION_SALTO_PAGINA")

IF lee_parametro("LARGO_PAPEL_"+lcDocImp) = "2" && largo papel PERSONALIZADO
@PROW(), PCOL() SAY codigos_impresion("CODIGOS_IMPRESION_LONGITUD_PAGINA_LINEAS") + CHR(66)
ENDIF


SET DEVICE TO SCREEN

IF glCompilado
prtfile(lcArchImpre, lcNombreImpresora)
ELSE
RUN NOTEPAD &lcArchImpre.
ENDIF

IF FILE(lcArchImpre)
   DELETE FILE lcArchImpre

ENDIF

RETURN

*------------------------------------------------------------------------------------------------------
PROCEDURE prtfile(cfiletoprt, cprinter)

If pcount()<2
    ? 'Do prtfile with "File to print", "printer name"'
    ?
    ? 'Eg. Do PrtFile with "TestPrint.prn", "Generic / Text Only"'
    ?
    return
Endif

*Set Classlib To rawprint
vprdev=CreateObject("PrintDev")

vprdev.cprintername = cprinter
vprdev.cfilename = cfiletoprt
If vprdev.oOpen()
   if !vprdev.oPrintFile()
       *MessageBox("Error sending to printer")
       mensaje("Error al imprimir."+CHR(13)+CHR(13)+"Impresora: "+cprinter)
   endif
   vprdev.oClose()
Else
*MessageBox("OpenPrinter() Error: "+str(vprdev.nOpenError))
mensaje("Error al intentar imprimir. Error: "+str(vprdev.nOpenError)+"."+CHR(13)+CHR(13)+;
"Impresora: "+cprinter)
Endif

Release vprdev
*Set Classlib to

Return

[integral]

Que tal Amigo :

Tengo entendido que existen 2 formas de crear un reporte en VFP

1) Crear un Prg con los códigos de impresión y tipos de letra (remarcada, condensada, etc.)

2) Utilizar el Create Report

Según tu respuesta mencionas que tienes todo hecho en un Informe. en ese caso la 1era. opción no te va a servir.

 Tendrás que utilizar el Modify Report ?

Te ubicas en el campo que deseas modificar e ingresas a sus propiedades y te ubicas en la opción Style y cambias ahí el tipo de fuente por ejemplo a Verdana 

Adjunto imagen que ilustra lo indicado.

Espero te sirva de ayuda

Saludos,

Integral

[almonts ( www.ontariombd.es )]

Utiliza el tipo de letra COURRIER.  

Es el tipo de letra más parecido a los caracteres de MS-DOS. 

Me refiero con esto, que guarda la misma distancia de puntos entre los caracteres. Así te será más fácil centrar los textos.

[Juan Pablo Iparraguirre Iparraguirre]

Para imprimir en una impresora matricial, térmica o laser con soporte a impresion directa con lenguaje de impresora y codigos ESC/P2

SET PRINTER TO NAME ALLTRIM(<nombre_de_la_impresora>) && Nombre de la Impresora ,independientemente si es USB, LPT o SERIAL
??? "NOMBRE    : " + ALTRIM(<variable_nombre>) && para caracteres
??? "DIRECCION : " + ALTRIM(<variable_direccion>) && para caracteres
??? "TELEFONO  : " + ALTRIM(<variable_telefono>) && para caracteres
??? "MONTO     : " + ALLTRIM(STR(<variable_monto>,12,2)) && para numericos con digitos decimales
SET PRINTER TO
SET DEVICE TO SCREEN

Si deseas colocar, comandos de escape (ESC/P2), la impresora debe ser compatible con ello.
??? CHR(29)+CHR(86)+CHR(48)  && Corte de papel
??? CHR(27)+CHR(97)+CHR(0) && Justificacion (0) Izquierda, (1) Centrado, (2) Derecha
??? CHR(27)+'!'+CHR(0) && Letra normal
??? CHR(27)+'!'+CHR(1) && Negritas
Se pueden utilizar de acuerdo al modelo y marca de la impresora.

_____________________________
Juan Pablo Iparraguirre I.
+51 965218114
iparrag...@gmail.com

[circulocatoli...@gmail.com]

Gracias Amigos a Todos,,, voy a probar lo que me dicen,,,,

[Victor Espina]

Esto te puede ayudar:

VFPX/VFPDosPrint: Generate text-based reports that can take full advantage of dot-matrix printer capabilities (github.com)

Victor Espina