#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