FoxPro/Visual FoxPro - imprimir en formato de texto

 
Vista:

imprimir en formato de texto

Publicado por hevilla Mauriio (3 intervenciones) el 21/02/2001 00:54:05
como se puede hacer desde vfox que imprima directamente en formato texto y no utilice los driver de windows
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:imprimir en formato de texto

Publicado por Charles Benzon (353 intervenciones) el 21/02/2001 02:47:33
Buenas,
Una solucion que los amigos Foxeros siempre han dado es elegir el tipo de impresora "Generic", asi es más rápido como era antes en D.O.S.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por Jeinner Hidalgo Picado (67 intervenciones) el 21/02/2001 02:51:51
Hay dos posibilidades, se me ocurre, la primera hacer el reporte a mano, enviando toda la información sin el generador de reportes.
La segunda sería crear una impresora Generica de sólo texto, la podés incluir en Agregar Impresora, Fabricante: Generic y ahí escogés Generic/Text Only
A ver si resulta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por mark (22 intervenciones) el 21/02/2001 03:24:42
Necesitas crear un archivo txt , si es eso lo que buscas , yo tengo el programa , escribeme , saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por JUAN CARLOS (3 intervenciones) el 10/03/2018 22:57:46
DESARROLLE UN PEQUEÑO SISTEMA PARA UNA AMIGA COMERCIANTE
PERO EL DRAMA SE ME SUCITO A LA HORA DE IMPRIMIR
DADO QUE SU IMPRESORA ES UNA BROTHERS 1200 Y NO SE COMO GENERAR
QUE LOS ARCHIVOS SE TRANSFORMEN A TEXTOS A LA HORA DE IMPRIMIR
DESDE YA GRACIAS...BROTHERS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:imprimir en formato de texto

Publicado por Fidel José (645 intervenciones) el 11/03/2018 13:43:18
Visual Foxpro9 tiene un potente sistema de REPORT. Aunque es necesario dedicar un tiempo para aprender a obterner los resultados necesarios, tiene la ventaja de que puedes lograr un mejor diseño de datos (con recuadros y diversas fuentes) y puedes insertar imágenes.

Para imprimir únicamente textos en LaserJet o DeskJet:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
lnCol = 5
lcFontName = "Lucida Console"
lnFontSize = 8
lcFontStyle = "N"
lcFieldSeparator = Repli(CHR(32),2)
 
lcFileName = ""
lcPrinterName = GetPrinter()
 
SET CONSOLE OFF
if empty(m.lcFileName)
	SET PRINTER TO NAME (m.lcPrinterName)	&& WhoImpre es la impresora de Windows
else
	SET PRINTER TO &lcFileName
endif
 
Set Printer ON
 
? "Titulo del Informe" AT lnCol FONT m.lcFontName, m.lnFontSize+1 STYLE m.lcFontStyle
? repli(chr(151),80) AT lnCol  FONT m.lcFontName, m.lnFontSize+1 STYLE m.lcFontStyle
?? ""
 
SELECT (lcCursor)
SCAN
	lcString = ""
	FOR i = 1 to FCOUNT(m.lcCursor)
		lcField = FIELD(i)
		lxValue = EVALUATE(m.lcCursor+"."+lcField)
		lcType = VARTYPE(m.lxValue)
		lnLength = FSIZE(m.lcField , m.lcCursor)
		DO CASE
			CASE m.lcType = "C"
				lcString = m.lcString ;
					+ m.lxValue
			CASE m.lcType = "N"
				lcString = m.lcString ;
					+ transform(m.lxValue,"999,999.99")
			OTHERWISE
				lcString = m.lcString ;
					+ transform(m.lxValue)
		ENDCASE
		lcSTring = m.lcString ;
			+ lcField_Separator
	NEXT
	? m.lcString AT lnCol  FONT m.lcFontName, m.lnFontSize STYLE m.lcFontStyle
 
ENDSCAN
SET CONSOLE ON
Set Printer Off
SEt printer to
 
 
* Note
El comando EJECT se debe utilizar para cambiar de hoja
Generalmente se utiliza un contador de líneas para decidir el momento del EJECT
El encabezado de hoja (y la numeración de página) deben estar en rutinas separadas para llamarlas dentro del proceso las veces que se necesite (cada hoja que empieza, cada EJECT o final de archivo, etc)
 
 
Comando ?
? | ?? Expression1 [PICTURE cFormatCodes] | [FUNCTION cFormatCodes] |
 
   [VnWidth] [AT nColumn]
 
   [FONT cFontName [, nFontSize [, nFontCharSet]] [STYLE cFontStyle | Expression2]]
 
   [, Expression3] ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por juan carlos (3 intervenciones) el 14/03/2018 21:34:14
hola fidel jose ....te agradezco el programa que me escribiste ....estoy estudiandolo
ya que yo recien estoy incursionando en el mundo de la programacion ..
y me cuesta un poco su tematica...
pero de todas formas me estas ayudando....gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por juan carlos (3 intervenciones) el 14/03/2018 21:39:34
hola necesito saber de ese programa que te permite imprimir en foxpro a formato de textos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:imprimir en formato de texto

Publicado por JASON (1 intervención) el 21/05/2019 17:17:02
que tal buen dia nesecito facturar en factura electronica fel pero nesecito aser mi texto en foxpro 0.9 podrias ayudarme gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por Aragorn (37 intervenciones) el 21/02/2001 12:19:50
Yo utilizo el generador de reportes como siempre, pero a la hora de seleccionar el tipo de fuente para los labels y campos, busco las DRAFT 10cpi, 12cpi o 17cpi que se me instalan el listado de fuentes al instalar la impresora LX-300. Dichas fuentes no aparecen en el combo con el ícono "TT" sino con un ícono que representa a una impresora.
Una vez hecho esto, al hacer el REPORT FORM ..., se imprime en modo DRAFT, tal como en DOS.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por MauricioHevilla (3 intervenciones) el 22/02/2001 19:46:57
Gracias desde ya
lo que yo busco es ganar una mayor velocidad al imprimir,para esto queria saltar el paso que window me pone al buscar el driver dela impresora, si usamos [email protected] 10.12 me sigue tomando la tipografia de windows, por eso intentare lode agregar las fon y les cuento mi experiencia
saludos cordiales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por VERO (25 intervenciones) el 01/03/2001 08:04:48
HOLA MAURICIO:
NO TE OLVIDES DE CONTARNOS COMO TE FUE CON LOS REPORTES EN MODO DOS Y COMO LO RESOLVISTE... NOS AYUDARAS BASTANTE...
GRACIAS ANTICIPADAS...
VERO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por Adolfo Huaman (16 intervenciones) el 03/03/2001 01:25:18
Mi estimado,
La impresion en modo texto es un poquito complicado pero no hay nada que no sea dificil.

Te explico:

Diriges la salida de la impresión a un archivo:
Por ejemplo:

Set printer to "reporte.txt"
*Luego generas el reporte
*Defines la cabera
*Tipos de letra:
*CHR 10 CPI = CHR(27)+CHR(64)
*CHR 12 CPI = CHR(27)+CHR(64)+CHR(27)+CHR(77)
*CHR 17 CPI = CHR(27)+CHR(64)+CHR(24)+CHR(15)
*CHR 20 CPI = CHR(27)+CHR(64)+CHR(27)+CHR(77)+CHR(27)+CHR(15)

*Iliges es tipo de letra que desees:
*Luego

@ 0,0 SAY (Tipo de letra)+CHR(27)+"C"+CHR(alto de pagina).
* Eso es todo.
*Ahora puedes mandar a imprimir mediante un PRG el reporte que deseas.

*Puedes Doblar el tamaño de las letras, subrayarlas, negritas,...
*
Set printer to
RUN Copy reporte.txt prn &&o

RUN Copy reporte.txt LPT1 &&o

*Mediante un API de windows que emita la pantalla con fondo negro del MSDOS.

*Si necesitas mas detalles escribeme

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir en formato de texto

Publicado por Jairo Miranda (4 intervenciones) el 18/07/2016 20:12:48
Y si la impresora es USB ??
JM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:imprimir en formato de texto

Publicado por Fidel José (645 intervenciones) el 19/07/2016 00:12:51
Siempre que sea una impresora de matriz de punto que acepte sencuencias de escape, debería funcionar con lo siguiente (en ese orden)
SET CONSOLE OFF
SET PRINTER TO NAME (lcNombreImpresora)
* Acá se inicializa el modo dei impresión, por ejemplo:
??? chr(27)+CHR(64)+CHR(64)+CHR(67)+CHR(72)+CHR(64)+CHR(120) && 72 lineas x página en modo DRAFT. (DataProcesing)
SET DEVICE TO PRINTER
@ PROW(),0 SAY " " && Esto limpia el buffer de la impresora.

Para desactivar esto:
* Comandos para volver la impresora al modo por defecto.
@ prow(),1 say " " && limpia buffer de la impresora.

* Acá puede que necesites un EJECT
SET DEVICE TO SCREEN
SET PRINTER TO
SET CONSOLE ON

Con esta forma, la impresora puede esta en la red.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 1.115
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

imprimir en formato de texto

Publicado por Leonardo Daniel A. (470 intervenciones) el 21/05/2019 21:03:13
Hola hace muchosss añoss, tuve que modificar un reporte para que imprimiera en una impresora de puntos, de esas grandes que parecen lavadoras jajaja, no recuerdo el modelo... que imprimian no se cuantas hojas por minuto.... lo que hice fue cambiar el estilo de fuente a Courier New , elimine las lineas de dibujo y puse un campo tipo texto con REPLICATE("=",ancho) donde ancho era la cantidad de columnas que querias replicar.... elimine imagenes.. y donde necesitaba negritas, enviaba el codigo correspondiente de la impresora...

y se agrego una impresora generica
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

imprimir en formato de texto

Publicado por jose camilo (805 intervenciones) el 22/05/2019 06:08:47
A lo viejos tiempos todo a codigo, selecciona la impresora que esta en redes, y manda como una bala

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Wprn = GETPRINTER()
If Empty(Wprn)
   MessageBox('Impresion Cancelada!!!',16,'JJ-System')
   Return
EndIf
SET PRINTER To Name "&Wprn"
SET DEVICE TO printer
SET PRINTER FONT 'Courier New',12
If WMatricial ="S"
   ??? CHR(18)
EndIf
SET CONSOLE OFF
 ContP = 1
 DO ENCABEZADO
 Wait Window "Procesando la Pagina "+Alltrim(Str(ContP)) NoWait
 DO WHILE !EOF()
    @Prow()+1,01 Say Alltrim(SubStr(Cuenta,1,12))
    @Prow()+0,15+len(Alltrim(SubStr(Cuenta,1,6))) Say Alltrim(SubStr(detalle,1,30))
    @Prow()+0,77 Say Alltrim(SubStr(Status,1,1))
    =inkey()
    If LastKey() = 27
       Que = MessageBox('Esta seguro que quieres detener el reporte',4+32,'JJ-System')
       If Que = 6
          @Prow()+1,1 Say "Reporte interumpido por el Usuario"
          keyboard chr(13)
          =inkey()
          Exit
       EndIf
    EndIf
    If Prow()=> 50
       @Prow()+1,0 Say Replicate("-",80)
       @Prow()+1,1 Say "Continua en la siguiente Pagina"
       @Prow()+1,1 Say " "
       Eject
       ContP = ContP + 1
       Wait Window "Procesando la Pagina "+Alltrim(Str(ContP)) NoWait
       DO ENCABEZADO
    EndIf
    SKIP
 ENDDO
 @Prow()+1,0 Say Replicate("-",80)
 @Prow()+3,1 Say Replicate("-",40)
 @Prow()+1,1 Say "Realizado por:"
 @Prow()+1,1 Say Wusuario
 @Prow()+1,0 Say " "
 If WMatricial="S"
    Eject
 EndIf
 SET PRINTER TO
 SET PRINTER OFF
 SET DEVICE TO SCREEN
 SET CONSOLE ON
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar