SetCopies() is not implemented. Please try removing SetCopies() Note: We have not still tested it for Easy Report. Glad if you test and help us to know the incompatibilities.
... ademas cada hoja debe llevar su copia,, pero no encuentro la solucion Le agregue la funcion ADDPAGE() pero solo crea paginas en blanco le Agregue SETCOPIES(2) tampo realiza la copia de las hojas Aca dejo el programa a ver si alguien me ayuda GRACIAS FUNCTION PRINT202() LOCAL oPrn:=frreportmanager():new("FRSysth.dll") ...
... lSel_imp .and. lPreview PRINT oImp TITLE cNom_Spooler FROM USER PREVIEW ENDIF IF lLnds oImp:SetLandscape() ENDIF //establezco las copias oImp:SetCopies(nCopias) //calculo anchos de fila y columna segun la resolucion de la impresora aAnchop[1]:=oImp:nVertRes()/nFilas aAnchop[2]:=oImp:nHorzRes()/nColumnas ...
... lSel_imp .and. lPreview PRINT oImp TITLE cNom_Spooler FROM USER PREVIEW ENDIF IF lLnds oImp:SetLandscape() ENDIF //establezco las copias oImp:SetCopies(nCopias) //calculo anchos de fila y columna segun la resolucion de la impresora aAnchop[1]:=oImp:nVertRes()/nFilas aAnchop[2]:=oImp:nHorzRes()/nColumnas ...
... ) ENDPAGE ENDPRINTER In printer.prg : // Defines for the oPrn:SetPage(nPage) method (The printer MUST support it) But also oPrn:Setcopies() gives the same result , probably all the methods which rebuild the printobject METHOD Rebuild() CLASS TPrinter # ifdef ...
... PRINT oPrint NAME "Formular" FROM USER // choose the printer DEFINE FONT oFnt NAME "ARIAL" SIZE 0,12 OF oPrint// oPrint:SetCopies (2)// oPrint:SetLandscape()// oPrint:Setup () PAGE oPrint:CmSay (1,1, cText,oFnt) ENDPAGE MsgInfo( PrnGetCopies() ...
... PRINT oPrint NAME "Formular" TO (cPrn) DEFINE FONT oFnt NAME "ARIAL" SIZE 0,12 OF oPrint oPrint:SetCopies (2) oPrint:SetLandscape() oPrint:Setup () // check the settings PAGE oPrint:CmSay ...