FoxPro/Visual FoxPro - PROBLEMA DE IMPRESION EN FORMULARIOS CONTINUOS

ESTA RUTINA DE IMPRESION QUE DESEO HABILITAR, CONSIDERANDO QUE AL QUERER LISTAR EN FORMULARIOS CONTINUOS MIS FACTURAS, NO ME CAE EN EL MISMO LUGAR EN LAS CONSECUTIVAS 3 O MAS FACTURAS, ENTONCES DESEO PARAMETRIZAR LA LONGITUD DE LA HOJA PERO NO ME CAMBIA, SIEMPRE ME IMPRIME EN LO MISMO.

USO "@ 00,20 say CHR(27)+CHR(67)+CHR(38) (longitud de pagina)" PARA DEFINIR LA LONGITUDE DE PAGINA PERO NO ME CAMBIA NADA.

SET DEVICE TO printer
SET PRINTER TO "c:\lista.txt"

@ 00,20 say CHR(27)+CHR(67)+CHR(38) (longitud de pagina)
@ 00,20 say CHR(27)+CHR(15)

@ 08,30 say vdia
@ 08,45 say vmes
@ 08,70 say vano

@ 09,10 say vcliente
@ 11,10 say vnomplan

@ 14,15 say vdetalle1
@ 14,67 say vtotal1

@ 15,15 say vdetalle2
@ 15,67 say vtotal2

@ 16,15 say vdetalle3
@ 16,67 say vtotal3

@ 17,15 say vdetalle4
@ 17,67 say vtotal4

@ 18,15 say vdetalle5
@ 18,67 say vtotal5

@ 19,15 say vdetalle6
@ 19,67 say vtotal6

@ 25,67 say vtotal pict '9,999,999'
@ 26,25 say vnommonto
@ 26,67 say vtotal pict '9,999,999'
*@ 33,01 say '.'

SET PRINTER to
SET DEVICE TO screen
! type c:\lista.txt > prn

juan, tu en varias oportunidades has planteado el problema de impresion en
formas continuas, te digo que vfp y windows-xp no tienen nada que ver con lo
que señalas, yo pienso que el problema estan en el formulario de las formas
continuas, puede ser que esten mal diseñadas por el proveedor y las medidas
no son estandar, esto pasa muchas veces y los programadores nos partimos el colo haciendo pruebas, te suguiero que midas estas formas continuas y verifique su tamaño, si cuentas con una regla de espacio de caracteres mucho mejor.dar

Hola hazlo de la sgte manera:
A mi me funciona perfectamente:
Usa una variable para las lines por ejem: L

@ L,20 say CHR(27)+CHR(67)+CHR(38) (longitud de pagina)
STORE 0 TO L
SET DEVICE TO printer
SET PRINTER TO "c:\lista.txt"
SELE MiTabla
DO WHILE NOT EOF()
IF L>38 OR L=0
L=0
ENDIF
@ L,20 say CHR(27)+CHR(15)
L=L+8
@ L,30 say vdia
@ L,45 say vmes
@ L,70 say vano
L=L+1
@ L,10 say vcliente
L=L+3
@ L,10 say vnomplan
L=L+3

@ L,15 say vdetalle1
@ L,67 say vtotal1
L=L+1

@ L,15 say vdetalle2
@ L,67 say vtotal2
L=L+1

@ L,15 say vdetalle3
@ L,67 say vtotal3
L=L+1

@ L,15 say vdetalle4
@ L,67 say vtotal4
L=L+1

@ L,15 say vdetalle5
@ L,67 say vtotal5
L=L+1

@ L,15 say vdetalle6
@ L,67 say vtotal6
L=L+6

@ L,67 say vtotal pict '9,999,999'
L=L+1
@ L,25 say vnommonto
@ L,67 say vtotal pict '9,999,999'
L=L+1
@ L,01 say '.'
SKIP
ENDDO
SET PRINTER to
SET DEVICE TO screen
! type c:\lista.txt > prn

Espero te sirva.