Important Update
WordSpacing.vbs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | ' This example demonstrates how to change the word spacing.' Create Bytescout.PDF.Document objectSet pdfDocument = CreateObject("Bytescout.PDF.Document")pdfDocument.RegistrationName = "demo"pdfDocument.RegistrationKey = "demo"Set comHelpers = pdfDocument.ComHelpers' Add pageSet page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)pdfDocument.Pages.Add(page1)Set canvas = page1.CanvasSet font = comHelpers.CreateSystemFont("Arial", 16)Set brush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0))Set stringFormat = comHelpers.CreateStringFormat()' Standard word spacingstringFormat.WordSpacing = 0.0canvas.DrawString_4 "Standard word spacing 0.0", (font), (brush), 20, 20, (stringFormat)' Increased word spacingstringFormat.WordSpacing = 5.0canvas.DrawString_4 "Increased word spacing 5.0", (font), (brush), 20, 50, (stringFormat)' Reduced word spacingstringFormat.WordSpacing = -2.5canvas.DrawString_4 "Reduced word spacing -2.5", (font), (brush), 20, 80, (stringFormat)' Save document to filepdfDocument.Save("result.pdf")' Open document in default PDF viewer appSet shell = CreateObject("WScript.Shell")shell.Run "result.pdf", 1, false |
Click here to get your Free Trial version of the SDK
also available as:
