Preview

[Andres Barillas]

Al imprimir un reporte quiero que la impresion de la primera y unica columna se imprima de lado izquierdo a 1 cm, como uso una impresora de ticket para punto de vnta se desfasa la impresion y la imprime en la posiscion que da por default; por otro lado en el Preview aparece en el centrada la impresion y no en la posicion de la columna que indico(osea a 1 cm de izq. a derecha).

como le hago?

Atte
andres

[Loren]

Andrés,

sería conveniente que fuese un poco más explícito. Muestra parte de tu código,detalla el modelo de impresora y a que puerto está conectada (LPT1, USB...). Así te podremos ayudar.

Un saludo.

[Andres Barillas]

Loren te agradezco el interes; te muestro parte del codigo, el preview funciona e inclusive en una impresora que utilice hojas carta imprime bien pero al imprimir el listado en en una impresora de punto de venta (de ticket) no respeta el margen izquierdo que indico, el ancho del papel de esta es de 7.5 cm y esta conectada al puerto LPT1, es la que esta asignada por default. Si respeta la indicacion del margen izquierdo la linea de impresion cabe perfectamente y no se desfasaria. La impresora esta configura como tipo Generic / Text Only. inclusive cuando uso el TdosPrn el comprobante de pago sale bien.

#include "FIVEWIN.CH"
#include "report.ch"

/* Codigo
nField := 1
DEFINE FONT oFont1 NAME "COURIER NEW" SIZE 0,-8
REPORT oReport TITLE "*** VENTA PARCIAL ***";
LEFT;
FONT oFont1;
PREVIEW
COLUMN TITLE "-----------------------------" DATA ;
cBar[nField,2]+transform(aImp[nField],"999,999.99")," "
END REPORT
*/
oReport:bSkip := {|| nField++}
oReport:nTitleUpLine := RPT_NOLINE
oReport:nTitleDnLine := RPT_NOLINE
oReport:nTotalLine := RPT_NOLINE
oReport:Margin(1,RPT_LEFT,RPT_CMTERS) // Aqui no respeta el margen
ACTIVATE REPORT oReport WHILE nField <= len(cBar)
oFont1:End()
Espero ser claro con lo que expongo.
saludos