ByteScout PDF SDK - VB.NET - Add Header And Footer - ByteScout

ByteScout PDF SDK – VB.NET – Add Header And Footer

  • Home
  • /
  • Articles
  • /
  • ByteScout PDF SDK – VB.NET – Add Header And Footer

How to add header and footer in VB.NET and ByteScout PDF SDK

Write code in VB.NET to add header and footer with this step-by-step tutorial

Every ByteScout tool contains example VB.NET source codes that you can find here or in the folder with installed ByteScout product. Want to add header and footer in your VB.NET app? ByteScout PDF SDK is designed for it. ByteScout PDF SDK is the component to help programmers in generating new pdf files, modifying and updating existing pdf documents or pdf forms. Provides support for auto-filling pdf forms, adding text with adjustable font, style, size, font family, new form fields, vector and raster drawings.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout PDF SDK. Just copy and paste the code into your VB.NET application’s code and follow the instruction. This basic programming language sample code for VB.NET will do the whole work for you to add header and footer.

Our website provides trial version of ByteScout PDF SDK for free. It also includes documentation and source code samples.

Try ByteScout PDF SDK today: Get 60 Day Free Trial or sign up for Web API

Program.vb
      
Imports Bytescout.PDF Imports Font = Bytescout.PDF.Font Imports SolidBrush = Bytescout.PDF.SolidBrush Module Program Sub Main() Try Using doc As Document = New Document() doc.RegistrationName = "demo" doc.RegistrationKey = "demo" doc.Load("sample.pdf") ' Prepare simple template (for example, a logo) And draw it on every page ' Create template of specified size Dim headerTemplate As GraphicsTemplate = New GraphicsTemplate(250, 50) headerTemplate.DrawString("Here is a header text", New Font(StandardFonts.CourierBold, 15), New SolidBrush(), 30, 10) Dim footerTemplate As GraphicsTemplate = New GraphicsTemplate(250, 50) footerTemplate.DrawString("Here is the footer text", New Font(StandardFonts.CourierBold, 15), New SolidBrush(), 30, 10) ' Write template in each pages For i As Integer = 0 To doc.Pages.Count - 1 Dim currentPage As Page = doc.Pages(i) currentPage.Canvas.DrawTemplate(headerTemplate, 40, 10) currentPage.Canvas.DrawTemplate(footerTemplate, 350, (currentPage.Height - 40)) Next ' Save output file doc.Save("result.pdf") End Using ' Open output file Process.Start("result.pdf") Catch ex As Exception Console.WriteLine(ex.Message) End Try Console.WriteLine("Press enter key to exit...") Console.ReadLine() End Sub End Module

Try ByteScout PDF SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout PDF SDK page

Explore ByteScout PDF SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next