Saves only new objects on first page?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I use the following VB6-code to insert watermarks:

    If PDF.LoadFromFile("c:\TestOriginal.pdf") = 1 Then

        PDF.SetOrigin 1 ' To top left

        PDF.SetMeasurementUnits 1 ' millimetres

        ' KOPIE und Datum einf�gen

        For x = 1 To PDF.PageCount

            PDF.SelectPage x

            PDF.SetTextSize 140

            PDF.SetTransparency 80

            ' KOPIE

            PDF.DrawRotatedTextBox -20, 60, 200, 200, 45, "KOPIE", 0

            PDF.DrawRotatedTextBox -20, 200, 200, 200, 45, "KOPIE", 0

            ' DATUM UHRZEIT

            PDF.SetTextSize 40

            Dat = Format(Now, "DD. MMM YYYY - HH:MM")

            PDF.DrawRotatedTextBox 10, 70, 200, 200, 45, Dat, 0

            PDF.DrawRotatedTextBox 10, 210, 200, 200, 45, Dat, 0

        Next

        ' Problem:

        PDF.SaveToFile "c:\TEST.pdf"

    Else

        Debug.Print "can not open pdf: Errorcode:" & PDF.LastErrorCode

    End If

Now only the first page contains the watermark. The other pages are unaffected?

If I use PDF.PrintDocument, the watermark appears on all sides. Whats going wrong?

Kukulkan

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
kukulkan Members Profile Find Members Posts Team Player Joined: 02 Mar 06 Location: Germany Status: Offline Points: 20	Post Options Post Reply Quote kukulkan Report Post Thanks(0) Quote Reply Topic: Saves only new objects on first page? Posted: 02 Mar 06 at 11:19AM
	I use the following VB6-code to insert watermarks: If PDF.LoadFromFile("c:\TestOriginal.pdf") = 1 Then PDF.SetOrigin 1 ' To top left PDF.SetMeasurementUnits 1 ' millimetres ' KOPIE und Datum einf�gen For x = 1 To PDF.PageCount PDF.SelectPage x PDF.SetTextSize 140 PDF.SetTransparency 80 ' KOPIE PDF.DrawRotatedTextBox -20, 60, 200, 200, 45, "KOPIE", 0 PDF.DrawRotatedTextBox -20, 200, 200, 200, 45, "KOPIE", 0 ' DATUM UHRZEIT PDF.SetTextSize 40 Dat = Format(Now, "DD. MMM YYYY - HH:MM") PDF.DrawRotatedTextBox 10, 70, 200, 200, 45, Dat, 0 PDF.DrawRotatedTextBox 10, 210, 200, 200, 45, Dat, 0 Next ' Problem: PDF.SaveToFile "c:\TEST.pdf" Else Debug.Print "can not open pdf: Errorcode:" & PDF.LastErrorCode End If Now only the first page contains the watermark. The other pages are unaffected? If I use PDF.PrintDocument, the watermark appears on all sides. Whats going wrong? Kukulkan