|
Outlines When you create a PDF catalog or price list or a Sell-Out Report, you could need something like an index, a way to jump directly to a particular page. For example, in a price list of thousands of pages it could be very useful to have an index of all the available Product Families, so you can jump to it without scrolling all the pages. With PDFReport you will be able to achieve this target: here's an example and the syntax. PDFRPT.AddOutline DestinationPageNumber, Zoom, _ Xpos, Ypos, "The text you want to see" The first parameter is the destination page (1 for page 1, 2 for page 2 etc etc...); remember thatthe page MUST already exist, don't try to create an Outline for a page which you haven't already created! The second paramater is the zoom factor, from 0 to 100 (if -1 the zoom remains untouched), the XPOS and YPOS are the coordinates on which Acrobat will focus after clicking the link. The last parameter is simply the Text that will appear in Acrobat Reader. Private Sub Command7_Click() Dim PDFRPT As New PDFDocument PDFRPT.NewPDF "This is my first PDF" PDFRPT.TextOut "Hello World!", 10, 10 PDFRPT.AddPage PDFRPT.TextOut "Hello World!", 10, 10 PDFRPT.AddPage PDFRPT.TextOut "Hello World!", 10, 10 PDFRPT.AddPage PDFRPT.TextOut "Hello World!", 10, 10 PDFRPT.AddPage PDFRPT.TextOut "Hello World!", 10, 10 PDFRPT.AddOutline 1, 100, 0, 0, "Page 1" PDFRPT.AddOutline 2, 100, 0, 0, "Page 2" PDFRPT.AddOutline 3, 100, 0, 0, "Page 3" PDFRPT.AddOutline 4, 100, 0, 0, "Page 4" PDFRPT.AddOutline 5, 100, 0, 0, "Page 5" PDFRPT.SavePDF "c:\provaocx.pdf" End Sub
|