#include "fivewin.ch"
function Main()
TPreview():bSaveAsPDF := { | oPreview | FWSavePreviewToPDF( oPreview ) }
XBrowse( "CUSTOMER.DBF" )
return nil
LOCAL cFile
nPDF := 1 // 2 3 4 5 6
cFile := "C:\MYPDF\"+"MYPDF"+ALLTRIM( nPDF )+".PDF"
PRINT oPrn NAME "MYPDF" FILE cFile
Ó
FWSavePreviewToPDF( oPrn ) // Esta en: PRV2PDF.PRG do Five.