Avatar of Tra71
Tra71
 asked on

Compressing PDFs

Hi,

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;"
		Else
			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
CEHJ

What is the Java connection?
ASKER CERTIFIED SOLUTION
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
or
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