Some test text!

menu
search

Change a PDF Page's MediaBox in VB

Sample VB code for using PDFTron SDK to change a page's MediaBox using Rect class. Learn more about our PDF Editing & Manipulation Library.

Get StartedSamplesDownload

To run this sample, get started with a free trial of PDFTron SDK.

'
' Copyright (c) 2001-2019 by PDFTron Systems Inc. All Rights Reserved.
'

Imports System

Imports pdftron
Imports pdftron.Common
Imports pdftron.Filters
Imports pdftron.SDF
Imports pdftron.PDF

Module RectTestVB
	Dim pdfNetLoader As PDFNetLoader
	Sub New()
		pdfNetLoader = pdftron.PDFNetLoader.Instance()
	End Sub

    Sub Main()

        PDFNet.Initialize()

		' Relative path to the folder containing test files.
		Dim input_path As String = "../../../../TestFiles/"
		Dim output_path As String = "../../../../TestFiles/Output/"

		Try
			Console.WriteLine("-------------------------------------------------")
			Console.WriteLine("Opening the input pdf...")

			' Test  - Adjust the position of content within the page.
			Using input_doc As PDFDoc = New PDFDoc(input_path + "tiger.pdf")
				input_doc.InitSecurityHandler()

				Dim pg As Page = input_doc.GetPage(1)
				Dim media_box As Rect = pg.GetMediaBox()

				media_box.x1 -= 200			 ' translate the page 200 units (1 uint = 1/72 inch)
				media_box.x2 -= 200

				media_box.Update()

				input_doc.Save(output_path + "tiger_shift.pdf", 0)

				Console.WriteLine("Done. Result saved in tiger_shift.pdf")
			End Using
		Catch ex As PDFNetException
			Console.WriteLine(ex.Message)
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub
End Module
close

Free Trial

Get unlimited trial usage of PDFTron SDK to bring accurate, reliable, and fast document processing capabilities to any application or workflow.

Select a platform to get started with your free trial.

Unlimited usage. No email address required.

PDFTron Receives USD$71 Million Growth Investment Led By Silversmith Capital Partners

Learn More
close