FoxPro/Visual FoxPro - IMPRESION EN FOXPRO

Hola Antonio y hola todos, imaginecen que sigo con problemitas con esas margenes, ya utilice el codigo que debe ser y me mejoro mucho, pero simpre me esta tomando las mismas medidas y no se porque.

Es decir, cuando utlizo este codigo:
*!* ???CHR(27)+('@')
*!* ???CHR(27)+CHR(67)+CHR(32)
*!* ???chr(27)+chr(18) &&draf

me sale igual que cuando utilizo este:
*!* ???CHR(27)+('@')
*!* ???CHR(27)+CHR(67)+CHR(64)
*!* ???chr(27)+chr(18) &&draf

e igualmente me sale lo mismo con este:
*!* ???CHR(27)+('@')
*!* ???CHR(27)+CHR(67)+CHR(50)
*!* ???chr(27)+chr(18) &&draf

Yo necesito imprimir en una hojita un poquito mas grande que media carta, las medidas exactas son de 21.5 de ancho por 18.5 de alto, el ancho si es igualito a una hoja tamaño carta pero el alto no. y yo modifico el numero donde se cambia el tamaño de la hoja asi como mostre arriba y siempre me imprime igual, entonces no me cuadra.

De antemano agradezco infinitamete la ayuda.

Ya definiste el tamaño del papel en la configuracion de la impresora ?
Tu reporte esta hecho con el reporteador o es manual ? (@ say ó ?)
La impresora es grafica o de matriz de puntos ?
Tu impresion es reporte o un documento ? (listado,factura, nota, etc)

Saludos

Hola Hector,
Si, la impresora ya esta configurada, el reporte lo estoy ralizando con @ say, lo que estoy tratando de imprimir es una factura en una impresora lx300 es una impresora de matriz de puntos.

Muchas gracias por tu colaboración.

Les agradezco inmensamente la colaboracion que me puedan brindrar con respecto al tema de la impresion de este documento.

Saludos,

Adiela Taborda, te boy a matar................

No me digas que lo pusiste con todo y comentarios??... uuuuuyyyyyyyyyyy

*!* = esto es un comentario, quitale esto

*y despues del
SET DEVICE TO PRINT

* Pones esto

???CHR(27)+('@')
???CHR(27)+CHR(67)+CHR(32)
???chr(27)+chr(18) &&draf

Mira tienes que medir en pulgadas, no midas en centimetrooooooooooooooooooooo

Es que la configuracion de la impresora por defecto viene en pulgadas (recuerda tecnologia gringa, mi amorrrrrrrrrr)

Asi pues me podrias, por favor, mira es de favor, eh, medir el papel desde arriba hacia abajo, pero en pulgadas.

Esas pulgasdas soln las que pondras en la linea:

???CHR(27)+CHR(67)+CHR(32) && le cambias el 32, por las pulgadas eu tenga el papel, de arriba hacia abajo.

Otra cosa esto solo funciona en un programa tipo *.prg, o sea impresion directa.

PD:
Por favor contestas hoy, antes de las 5:00 pm, aqui en El Mejor Pais Del Mundo (E M P D M), son las 4:25 pm.

Att.
Antonio R. Moquete Mejia
Santo Domingo, Republica Dominicana (E M P D M)

Hola Antonio, te cuento que soy muy visoña en fox pero yo no coloque los comentarios..... voy a ensayar y te cuento claro que te me vas a ir pero voy a ver si alcanzo....

tenme un poquito de paciencia ....a que horas me puedes atender mañana ?cuando verifique nuevamente? es que me tengo que conseguir nuevamente la impresora para ensayar (yo tan conchuda cierto?) ....

Saludos,
Adiela Taborda, mira para nada me estas molestando, muy por el contrario, me siento bien porder ayudar a todo el que pueda en esta comunidad.

Mira trata de solo de enviar lo que te mencione, es mas te envio algo por esta via para qeu lo pongas en un *.prg y lo ejecutes.

SET DATE TO BRITISH
SET CENTURY on
banco = 'BANCO NACIONAL DE ADIELA TABORDA'
MNUMCK = 8636
cuenta = '0110-94971-6'
MMNOMCLTE = 'ANTONIO R. MOQUETE MEJIA'
MVALORABON = 10000.00
VALOR = 'DIEZ MIL PESOS CON/00'

FACTUR1 = 'FT-22524 FT-25444 FT-25549 FT-12550 FT-44354'
FACTUR2 = 'FT-96854 FT-25452 FT-45444 FT-21599'
FACTUR3 = 'FT-96854 FT-25452 FT-45444 FT-21599'

set printer to c:\TEMP\cheque.txt && esto es para que te salga en un archivo,
* luego le das MODIFY COMMAND c:\TEMP\cheque.txt y podras ver el resultado
* colocalo en comentario para que te salga por el printer
SET DEVICE TO PRINT

???CHR(27)+('@')
???CHR(27)+CHR(67)+CHR(32) &&21.3
???chr(27)+chr(18) &&draf

*N = 0
LIN = 1
@lin,29 say banco
lin = lin + 1
@lin,32 say 'Santo Domingo R. D.'

@LIN,63 SAY MNUMCK PICT "999999999999"

lin = lin + 1

@lin,30 say 'CTA. NO. '
@lin,40 say cuenta

lin = lin + 1
@lin,02 say ' '
lin = lin + 1
SET STEP ON

L = DATE()
L = dtoc(L)
MESSS = ''
store left(l,2) to dia
store substr(l,4,2) to mes

DO CASE
CASE MES = '01'
MESSS = 'Enero'
CASE MES = '02'
MESSS = 'Febrero'
CASE MES = '03'
MESSS = 'Marzo'
CASE MES = '04'
MESSS = 'Abril'
CASE MES = '05'
MESSS = 'Mayo'
CASE MES = '06'
MESSS = 'Junio'
CASE MES = '07'
MESSS = 'Julio'
CASE MES = '08'
MESSS = 'Agosto'
CASE MES = '09'
MESSS = 'Septiembre'
CASE MES = '10'
MESSS = 'Octubre'
CASE MES = '11'
MESSS = 'Noviembre'
CASE MES = '12'
MESSS = 'Diciembre'
ENDCASE

store substr(l,7,4) to ano

@LIN,52 SAY dia &&55
* @lin,58 say 'de'
* @lin,58 say ''
@LIN,58 SAY MESSS &&61
@LIN,73 SAY ANO &&76 &&linea 8 &&72

LIN = LIN + 3

@LIN,19 SAY MMNOMCLTE
@LIN,67 SAY MVALORABON pict "*,***,***.99"
lin = lin + 1
@lin,02 say ' '
LIN = LIN + 1
@LIN,05 SAY VALOR

LIN = LIN + 14

@LIN,05 SAY FACTUR1
LIN = LIN + 1
@LIN,05 SAY FACTUR2
LIN = LIN + 1 && NUEVO
@LIN,05 SAY FACTUR3

lin = lin + 4 &&6 &&5 &&4
@lin,01 say 'Ave. Luperon No. 7 Esq. Guarocuya * Tel.(809) 801-7320, Fax:(809) 501-8716'
lin = lin + 1
@lin,02 say 'Fax:(809) 531-7008 Santo Domingo R. D.'
@lin,02 say ' '
LIN = 0
EJECT
N = 0
LIN = 0
MNUMCK = 0
MMNOMCLTE = ' '
MVALORABON = 0
set printer to

***

Ok pones esto en un ejemplo.prg, y lo ejecutas y te daras cuenta de que si funciona, ahora mismo lo pude ver e imprimir aqui al lado mio.

PD:

y no eres conchuda , ok, nunca repitas eso estamos aqui para ayudar,el que no quiera hacerlo mira que no entre y punto. ok , de donde eres?

Saludos desde qui de Santo Domingo, Rep. Dom. (E M P D M)

Antonio R. Moquete Mejia .

Hola Antonio, Soy de Colombia-Medellin, y estoy recien ingresada a una empresa de programacion donde trabajan en Fox Pro y nunca lo habia trabajado en este lenguaje, esa factura es la primera que estoy modificando, porque ya estaba hecha pero le cambiaron el tamaño del papel donde se imprimen.

Voy a verificar todos los codigos que me haz enviado y si algo te cuento.
Muchas gracias por tu colaboración.

Saludos,
Adiela, que bien, mira el ejemplo qeu te envie, puedes ejecutarlo y veras que funcion a la perfeccion, te pedi en el eamil anterior las medidas del papel que utilizas.

Pero si quieres me puedes enviar el codigo, y asi lo reviso y puedo entonces correjir lo que estas haciendo mal, digo esto porque se que estas en algo que no hiciste tu y creeme que yo estado en esa situacion.

Mira enviame el Prg, de la factura a mi direccion de correo y vere que que te funcione solo modificare el codigo en donde se imrprime, tambien tienes que controlar el salto de paginas, cuando las cantidades de Item que se pueden imprimir en ese espacio de papel.

Pilas con eso, es que ahi puede ser que esten controlando las cantidades de lineas qeu se imprimen, y por eso no funciona lo del corte de pape. (digo pilas cono dicen ustedes aya).

Bueno mira enviame si quieres esto.

Att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.