ByteScout PDF SDK - VBScript and VB6 - Draw String in PDF - ByteScout

ByteScout PDF SDK – VBScript and VB6 – Draw String in PDF

  • Home
  • /
  • Articles
  • /
  • ByteScout PDF SDK – VBScript and VB6 – Draw String in PDF

How to draw string in PDF in VBScript and VB6 with ByteScout PDF SDK

The tutorial below will demonstrate how to draw string in PDF in VBScript and VB6

Source code documentation samples provide quick and easy way to add a required functionality into your application. 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 and you can use it to draw string in PDF with VBScript and VB6.

Fast application programming interfaces of ByteScout PDF SDK for VBScript and VB6 plus the instruction and the code below will help you quickly learn how to draw string in PDF. Follow the instructions from the scratch to work and copy the VBScript and VB6 code. This basic programming language sample code for VBScript and VB6 will do the whole work for you to draw string in PDF.

Free trial version of ByteScout PDF SDK is available for download from our website. Get it to try other source code samples for VBScript and VB6.

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

DrawString.vbs
      
' This example demonstrates how to draw a text. ' Create Bytescout.PDF.Document object Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Set comHelpers = pdfDocument.ComHelpers ' Add page Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4) pdfDocument.Pages.Add(page1) ' Draw simple text Set font = comHelpers.CreateSystemFont("Arial", 24) Set blackBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0)) page1.Canvas.DrawString "Simple text.", (font), (blackBrush), 20, 20 ' Draw text with alignment in specified rectangle Set stringFormat = comHelpers.CreateStringFormat() stringFormat.HorizontalAlign = comHelpers.HORIZONTALALIGN_RIGHT stringFormat.VerticalAlign = comHelpers.VERTICALALIGN_BOTTOM page1.Canvas.DrawString_7 "Aligned text", (font), (blackBrush), 20, 100, 200, 60, (stringFormat) page1.Canvas.DrawRectangle comHelpers.CreateSolidPen(comHelpers.CreateColorGray(0), 1.0), 20, 100, 200, 60 ' Draw colored text Set boldFont = comHelpers.CreateSystemFont2("Arial", 32, True, False, False, False) Set redBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0)) Set bluePen = comHelpers.CreateSolidPen(comHelpers.CreateColorRGB(0, 0, 255), 1.0) page1.Canvas.DrawString "Colored text", (boldFont), (redBrush), 20, 200 page1.Canvas.DrawString_3 "Outlined colored text", (boldFont), (redBrush), (bluePen), 20, 240 page1.Canvas.DrawString_2 "Outlined transparent text", (boldFont), (bluePen), 20, 280 ' Save document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false

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