Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).

New Forum | Previous | Next | (P-PDF) Developers

Topic: set line coordinates with JavaScript annotation in VB6
Conf: (P-PDF) Developers, Msg: 117835
From: brench
Date: 8/26/2004 01:50 AM

I'm having a problem specifying coordinates when drawing a line on a pdf using a JavaScript annotation in VB6. Regardless of the coordinates I use, I get a diagonal line in the lower lefthand corner of the page (the "default user space").

How can I control where the line is drawn? Here's my code:

Sub drawLine(file As String)
Dim pdDoc As Acrobat.CAcroPDDoc
Dim page As Acrobat.CAcroPDPage
Dim jso As Object
Dim annot As Object, props As Object
Dim point(0 To 3) As Integer, popupRect(0 To 3) As Integer
Dim pageRect As Object

Set pdDoc = CreateObject("AcroExch.PDDoc")
If pdDoc.Open(file) Then
Set jso = pdDoc.GetJSObject
If Not jso Is Nothing Then
Set page = pdDoc.AcquirePage(0)
Set pageRect = page.GetSize
' point(0) = 0
' point(1) = pageRect.y
' popupRect(0) = 0
' popupRect(1) = pageRect.y - 100
' popupRect(2) = 200
' popupRect(3) = pageRect.y

point(0) = 550 'startX
point(1) = 70 'startY
point(2) = 550 + 60 'startX + omrLength
point(3) = 70 'startY

' Set pdPage = CreateObject("AcroExch.PDPage")
' Set pdPage = pdDoc.AcquirePage(1)

' Set pdPageView = CreateObject("AcroExch.PDPageView")
Set annot = jso.AddAnnot
Set props = annot.getprops
props.Type = "Line"
annot.setprops props

Set props = annot.getprops = 0
' props.point = point
props.Points = point
' props.popupRect = popupRect
props.Author = "Brad Rench"
' props.noteicon = "Comment"
props.strokecolor =
props.Contents = "I added this comment from Visual Basic"
annot.setprops props
pdDoc.Save PDSaveIncremental, file
End If

' With props
' .Type = "Text"
' .page = 0
' .point = point
' .strokecolor =
' End With
End If

' pdDoc.Save PDSaveIncremental, file
End Sub

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Five visions of a PDF Day

In the world of PDFs or as we like to say Planet (of) PDF, a year isn't a real PDF year without an intense few days of industry knowledge sharing.

May 15, 2018
Platinum Sponsor

Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.


Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.