Print2PDF with "ChartTitle" as name

  • Thread starter Thread starter SpeeD72
  • Start date Start date
S

SpeeD72

Hi guys.

I need to print a sheet that contains a Graph (pie), and
the respective values (tabel) to PDF, to be used in other
programs. It´s essecial that the name of the PDF is
the "ChartTitle", and this as to be autumatic, becouse
theres a lot of PDF´s to be made...

Thanks a lot!!!!!!!!!
SpeeD72

P.S: i use PDF becuuse it retains the objects
as "curves", and can be used in other Design progs.
 
SpeeD72,

Following is a macro to print to pdf however you like.
I will take no credit for the code (I found it at someones
website but don't quite remember whos???). You need
to add references to "AcrobatPDFMaker" and
"AcrobatDistiller" to your project.

Sub Print_PDF()
' Define the postscript and .pdf file names.
Dim PSFileName As String
Dim PDFFileName As String
PSFileName = "c:\myPostScript.ps"
PDFFileName = "c:\ChartTitle.pdf"

' Print the Excel range to the postscript file
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
ActiveSheet.PrintOut copies:=1, preview:=False, _
ActivePrinter:="Acrobat Distiller", printtofile:=True, _
collate:=True, prtofilename:=PSFileName

' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""

Kill (PSFileName)

End Sub

It creates a PDF just as if you chose to print to PDF
(ie printing boundries)

Dan E

Hi guys.

I need to print a sheet that contains a Graph (pie), and
the respective values (tabel) to PDF, to be used in other
programs. It´s essecial that the name of the PDF is
the "ChartTitle", and this as to be autumatic, becouse
theres a lot of PDF´s to be made...

Thanks a lot!!!!!!!!!
SpeeD72

P.S: i use PDF becuuse it retains the objects
as "curves", and can be used in other Design progs.
 
hi Dan!

Thank´s a lot!! :-)

If i understand this macro gives me the possibility ti
print to PDF with the name chartTitlie.pdf, but what i
want is to use the Variable ChartTitle of a graph! (name
of the graph, that could change)

How can i do this?

Thanks
SpeeD
 
Great help, Thanks a lot!!!

It works´s just fine. :-)

By the way.... if i want to use a cell in the worksheet
inseat of the "charttitle", how can i do it?

thanks!

SpeeD72


-----Original Message-----
SpeeD,

Instead of using
PDFFileName = "c:\ChartTitle.pdf"
USE
If ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text
Click to expand...
PDFFileName = "C:\" & ActiveSheet.ChartObjects
Click to expand...
(1).Chart.ChartTitle.Text & ".pdf"
 
If Range("A1").Value <> "" Then
PDFFileName = "C:\" & Range("A1").Value & ".pdf"
Else
MsgBox Prompt:="Insert a Name in A1"
Exit Sub
End If

Change A1 to your desired cell accordingly

Dan E

Great help, Thanks a lot!!!

It works´s just fine. :-)

By the way.... if i want to use a cell in the worksheet
inseat of the "charttitle", how can i do it?

thanks!

SpeeD72


-----Original Message-----
SpeeD,

Instead of using
PDFFileName = "c:\ChartTitle.pdf"
USE
If ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text
Click to expand...
PDFFileName = "C:\" & ActiveSheet.ChartObjects
Click to expand...
(1).Chart.ChartTitle.Text & ".pdf"
 
Back
Top