changes.mady.by.user admin
Gravado em 21 mai, 2012
...
Cria um objeto que permite visualizar e imprimir relatório.
TMSPrinter -> TAvPrinter
TAvPrinter(): New ( [ cDocument], [ uParam2], [ uParam3], [ uParam4], [ uParam5], [ uParam6], [ uParam7] ) --> oObjeto
oPrinter := TAvPrinter():New("Exemplo TAvPrinter")
#include "TOTVS.CH"User Function TAvPrinter() DEFINE DIALOG oDlg TITLE "Exemplo TAvPrinter" FROM 180,180 TO 550,700 PIXEL oPrinter := TAvPrinter():New("Exemplo TAvPrinter") oPrinter:SetFile( '\SPOOL\matr010.prt', .F.) oTPageView := TPageView():New( 0,0,510,354,oPrinter,oDlg,550,550 ) oTPageView:Show() oTPageView:nZoom := 150 ACTIVATE DIALOG oDlg CENTERED Return