Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).

New Forum | Previous | Next | (P-PDF) Developers

Topic: Distiller + Postscript + VBA in Excel
Conf: (P-PDF) Developers, Msg: 52858
From: magrpy
Date: 5/29/2002 04:55 PM

Needs help,
I need to convert an Excel file that has color graphs into a PDF file by using VB.
Below is the code that I use. It works fine; however, whenever I run it, the pdf from the distiller is black and white. How do I maintain the color of the graph?
What code(s) should I insert in the vba.

Sub SaveAsPDFFile()
'The purpose of this function is to save the Daily Summary sheet
'as a printer friendly PDF file. The sheet will first be converted
'to a PS file that will be sent to Acrobat Distiller to convert to a
'PDF file format. The PDF file will be linked to the web version of
'this report via the Printable Version link

Dim PSFileName As String
Dim PDFFileName As String
Dim DistillerCall As String

Dim ReturnValue As Variant

'Activate the Daily Summary worksheet
Worksheets("Monthly Summary").Activate

'Define the path and filenames (can get the names from a cell, and
'add the path & extension):
PSFileName = "c:\work\monthpdf.PS"
PDFFileName = "c:\work\monthpdf.PDF"

'If the files already exist, delete them:
If Dir(PSFileName) <> "" Then
Kill (PSFileName)
End If

If Dir(PDFFileName) <> "" Then
Kill (PDFFileName)
End If

'The Sendkeys characters are the full path and filename, followed by the "Enter" key.
' These are buffered until the "print to file" screen appears:
SendKeys PSFileName & "{ENTER}", False

ActiveSheet.PrintOut , PrintToFile:=True

'Add double quotes around the PS filename and PDF filename:
PSFileName = Chr(34) & PSFileName & Chr(34)

PDFFileName = Chr(34) & PDFFileName & Chr(34)

DistillerCall = "C:\Program Files\Adobe\Acrobat 4.0\Distillr\Acrodist.exe " & _
"/n /q /o" & PDFFileName & " " & PSFileName

'Call the Acrobat Distiller to distill the PS file. ReturnValue is zero
'if the application doesn't open correctly:
ReturnValue = Shell(DistillerCall, vbNormalFocus)

If ReturnValue = 0 Then MsgBox "Creation of " & PDFFileName & "failed."

End Sub

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Five visions of a PDF Day

In the world of PDFs or as we like to say Planet (of) PDF, a year isn't a real PDF year without an intense few days of industry knowledge sharing.

May 15, 2018
Platinum Sponsor

Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.


Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.