Link Search Menu Expand Document

Shift Page Content - VBScript and VB6

PDF SDK sample in VBScript and VB6 demonstrating ‘Shift Page Content’

' This example demonstrates how to shift page content.

' Create Bytescout.PDF.Document object
Set pdfDocument = CreateObject("Bytescout.PDF.Document")
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"

' Load input document

Set page = pdfDocument.Pages.Item(0)

' copy page content as template
Set template = page.SaveAsTemplate()

Set comHelpers = pdfDocument.ComHelpers

' create new page of required size
Set newPage = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)

Set canvas = newPage.Canvas

' draw the stored template on the new page with required offset
canvas.DrawTemplate(template), 50, 50

' replace the old page with the new one

' Save document to file

' Open PDF document in default associated application (for demo puprpose)
Set shell = CreateObject("WScript.Shell")
shell.Run "result.pdf", 1, false

Download Source Code (.zip)

Return to the previous page Explore PDF SDK