FiveTech Software tech support forums

The needed solution is not included in the sample < metrptst.prg > I found a solution, to create a new menu from a submenu-button ( NOT startpage ) and to change the buttonsize as well : http://www.pflegeplus.com/IMAGES/metro8.jpg called from submenu-button < Index > ...

There is a clause ON STARTPAGE:

ACTIVATE REPORT oRpt ON STARTPAGE bStartpage...

James

... no me manda la impresión. Que podría ser? LOCAL oPrn IF !IsPrint("LPT1:") RETURN nil ENDIF oPrn := TDosPrn():New("LPT1") oPrn:StartPage() oPrn:say(10,10,"Prueba de Impresión") oPrn:EndPage() Asi es como lo uso pero no manda nada hacia la impresora nada.

... COLUMN TITLE " Salary" ; DATA Customer->Salary ; PICTURE "9,999,999" ; SIZE 9 ; TOTAL END REPORT ACTIVATE REPORT oReport ON STARTPAGE Tone( 100, 1 ) USE RETURN NIL

... METHOD NewPageIfNeed( nRow )  INLINE  if(nRow >= ::nBottomRow, ::EndPage(), NIL)  por cierto, yo usaba tb EndPage() y StartPage() pero ::EndPage() hace eso y algo mas... Y como dice armando ".. la llama Después de imprimir, o antes si así lo prefieres, ..." ...

... CkNewPage(oReport,nLinAdic) if (oReport:nRow() + (oReport:nStdLineHeight()*nLinAdic)) >= oReport:nBottomRow() oReport:EndPage() oReport:StartPage() endif return nil Saludos.

... "Last"  DATA Customer->Last      COLUMN TITLE "State" DATA Customer->State   END REPORT   ACTIVATE REPORT oMiRep ON STARTPAGE ImprimePie (oMiRep,oMiFuente)   USE      RELEASE FONT oMiFuentereturn nilfunction ImprimePie (oMiRep,oMiFuente)Local nPosX1:=oMiRep:nLeftMargin,; ...

Hola Yo para poder sacar en cada hoja los acumulados anteriores (totales de la pagina anterior), modifique el metodo startpage METHOD StartPage() CLASS TReport   Local cTotPag := ::cPageTotal    Local lFin    := ::lTotFin   STATIC lRunning := .F.   ::lTotFin := .f.   ::oDevice:StartPage()  ...

... PrueT88() Local nRow:=1, nCol:=0 MsgInfo('Verifique el Estado de la Impresora','!!! ATENCION !!!') oPrn:=TDosPrn():New("lpt1") oPrn:StartPage() // optional oPrn:Say( nRow, nCol, replicate('-',42) ) nRow ++ oPrn:Say( nRow, nCol , "COMIENZO DEL REPORTE" ) nRow ++ oPrn:Say( ...

... nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oprn:Startpage() oprn:command("27","64" ) oprn:command("27","105" ) oprn:Command("18" ) oprn:Endpage() ...

Prueba asi imprimiendo USB
cFile :="LISTADO.PRN"
cPrinter := PrinterPortToName( "USB001" )
oPrin := TDosPrn():New(cFile)
oPrin:StartPage()
...
...
oPrin:EndPage()
oPrin:End()

PrintFileRaw( cPrinter, cFile, "Imprimiendo Listado" )
FERASE( cFile )

SAludos

Normally happens when oPrinter:Startpage() is not paired correctly with oPrinter:EndPage().

... ... /*activa reporte*/ ACTIVATE REPORT oReporte; ON POSTEND oReporte:Say(1,"Registros procesados :"+str(oReporte:nCounter),3); ON STARTPAGE PrintLogo(oReporte) ... PROCEDURE PrintLogo(oReporte) LOCAL anC LOCAL oRep := oReporte:oDevice anC := oRep:CmRect2Pix( { 1.50, 1.00, 3.32, ...

... mismo codigo lo usaba antes en FW23 y funcionaba muy bien... Gracias de antemano Saludos FOR X=1 TO NUM oPrn:=TDosPrn():New((aCONFIG[50])) oPrn:StartPage() IF aET[4] // SOLO CODIGO oPrn:Command("27,67,6","27,119,1") oPrn:SAY(3,1,PADC(ALLTRIM(INVENT->CODIGO1),25)) oPrn:Command("27,119,0") ...

Harvey

oprn:startpage() and oprn:endpage() are missing

Hth

Richard