Avatar of Tra71
 asked on

Compressing PDFs


Is there a way of compressing a pdf at the point of creating it?  The PDFs being created are too large...

We're using Persits AspPDF.

Many thanks

Set objPDF = Server.CreateObject("Persits.Pdf")
		Set objDoc = objPDF.CreateDocument
	'Get HTML stream to populate PDF...
		If Request.QueryString("Orient") = "L" Then
			objDoc.ImportFromUrl strHTML, "landscape=true; PageWidth=841; PageHeight=595; TopMargin=36; BottomMargin=36;"
			objDoc.ImportFromUrl strHTML, "PageWidth=595; PageHeight=841; TopMargin=36; BottomMargin=36;"
		End If
	'Check for Client...

		Set objConn = Server.CreateObject("ADODB.Connection") : objConn.Open appDBConn
		Set objRS = Server.CreateObject("ADODB.Recordset") : Set objRS.ActiveConnection = objConn
		Set Param = objDoc.ImportInfo
		Index = Param("Page")
		Y = Param("Y")
		X = 0
		Set Page = objDoc.Pages(Index)
		objRS.CursorLocation = adUseServer : objRS.Cursortype = adOpenStatic : objRS.Locktype = adLockOptimistic

Open in new window

ASPVB ScriptJava

Avatar of undefined
Last Comment
Big Monty

8/22/2022 - Mon

What is the Java connection?
Big Monty

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
I started with Experts Exchange in 2004 and it's been a mainstay of my professional computing life since. It helped me launch a career as a programmer / Oracle data analyst
William Peck