Debenu Quick PDF Library - PDF SDK Community Forum : CompressImages - VBS

CompressImages - VBS : Right, you can use only the Appendix...

Sat, 29 May 2021 17:48:16 +0000

Author: Sopracenery
Subject: 3920
Posted: 29 May 21 at 5:48PM

Right, you can use only the Appendix C functions.

These are:

Appendix C: Functions available in the Lite Edition
AddImageFromFile
AddLinkToWeb
AddStandardFont
DeletePages
DocumentCount
DrawHTMLText
DrawHTMLTextBox
DrawImage
DrawQRCode
DrawText
DrawTextBox
ExtractPages
FindImages
GetImageListCount
GetImageListItemFormatDesc
GetInformation
GetPageBox
GetPageImageList
HasFontResources
ImageCount
ImageHeight
ImageWidth
IsLinearized
LastErrorCode
LoadFromFile
MergeDocument
NewDocument
NewPage
NormalizePage
PageCount
PageHasFontResources
PageHeight
PageRotation
PageWidth
RemoveDocument
RotatePage
SaveToFile
SecurityInfo
SelectDocument
SelectedDocument
SelectFont
SelectImage
SelectPage
SetBaseURL
SetInformation
SetMeasurementUnits
SetOrigin
SetPageBox
SetPageDimensions
SetPageLayout
SetPageMode
SetPageSize
SetTextAlign
SetTextColor
SetTextSize
SetTextUnderline

CompressImages - VBS : I think CompressImage is not accessible...

Tue, 25 May 2021 22:04:45 +0000

Author: Thierry_B
Subject: 3920
Posted: 25 May 21 at 10:04PM

I think CompressImage is not accessible in Quick Library version; just with commercial one.

CompressImages - VBS : Why not asking Google?This has...

Tue, 25 May 2021 20:06:16 +0000

Author: Ingo
Subject: 3920
Posted: 25 May 21 at 8:06PM

Why not asking Google?
This has nothing to do with the library i think...
It's an error code from vbs.

Code Error 800A01B6 – Object doesn't support this property ...

CompressImages - VBS : Hello,Great Library :-)But have...

Mon, 24 May 2021 21:33:51 +0000

Author: Thierry_B
Subject: 3920
Posted: 24 May 21 at 9:33PM

Hello,

Great Library :-)

But have problem with CompressImages.

What's wrong ? Error Code 800A01B6

Dim ClassName

Dim QP

Dim InFileName

Dim OutFileName

Dim lWidth

Dim lHeight

ClassName = "DebenuPDFLibrary64Lite1114.PDFLibrary"

InFileName = "image.jpg"

OutFileName = "Testfini.pdf"

Set QP = CreateObject(ClassName)

Call QP.CompressImages(1)

' Load the image that you'd like to convert to PDF

if (QP.AddImageFromFile(InFileName, 0)) = 0 Then WScript.Echo("Erreur chargement image")

' Get the width and height of the image

lWidth = QP.ImageWidth()

lHeight = QP.ImageHeight()

' Reformat the size of the page in the selected document

Call QP.SetPageDimensions(lWidth, lHeight)

' Draw the image onto the page using the specified width/height

Call QP.DrawImage(0, lHeight, lWidth, lHeight)

' Save the new PDF to disk

If QP.SaveToFile(OutFileName) = 0 Then WScript.Echo("Error, file could not be written")

Set QP = Nothing