ByteScout PDF SDK – VBScript and VB6 – Shift Page Content

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Shift Page Content

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Shift-Page-Content.pdf

shift page content in VBScript and VB6 with ByteScout PDF SDK

Build shift page content in VBScript and VB6

Step-by-step instructions on how to do shift page content in VBScript and VB6

We regularly create and update our sample code library so you may quickly learn shift page content and the step-by-step process in VBScript and VB6. Shift page content in VBScript and VB6 can be applied with ByteScout PDF SDK. ByteScout PDF SDK is the SDK for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings.

The below SDK samples describe how to quickly make your application do shift page content in VBScript and VB6 with the help of ByteScout PDF SDK. To use shift page content in your VBScript and VB6 project or application just copy & paste the code and then run your app! This basic programming language sample code for VBScript and VB6 will do the whole work for you in implementing shift page content in your app.

Visit our website to get a free trial version of ByteScout PDF SDK. Free trial contains many of source code samples to help you with your VBScript and VB6 project.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ShiftPageContent.vbs

      ' 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
pdfDocument.Load("sample.pdf")

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
pdfDocument.Pages.Remove(0)
pdfDocument.Pages.Add(newPage)

' Save document to file
pdfDocument.Save("result.pdf")

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