Pdf Converter
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Pdf Converter as PDF for free.
More details
- Words: 74
- Pages: 1
Private Sub CommandButton1() ' Define the postscript and .pdf file names. Dim PSFileName As String Dim PDFFileName As String PSFileName = "I:\PERFORM\Personal\Andrew\Pulse_Ladder_MB.ps" PDFFileName = "I:\PERFORM\Personal\Andrew\Pulse_Ladder_MB.pdf"
' Print the Excel range to the postscript file Dim MySheet As Worksheet 'MySheet = sT25MB Set MySheet = ActiveSheet MySheet.Range("A1:I31").PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True ' Convert the postscript file to .pdf Dim myPDF As PdfDistiller Set myPDF = New PdfDistiller myPDF.FileToPDF PSFileName, PDFFileName, "" End Sub
' Print the Excel range to the postscript file Dim MySheet As Worksheet 'MySheet = sT25MB Set MySheet = ActiveSheet MySheet.Range("A1:I31").PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True ' Convert the postscript file to .pdf Dim myPDF As PdfDistiller Set myPDF = New PdfDistiller myPDF.FileToPDF PSFileName, PDFFileName, "" End Sub
Related Documents
Pdf Converter
June 2020 5
Converter
November 2019 26
Nuance Pdf Converter - Guide
June 2020 2
Half Converter Rload 1.pdf
May 2020 2
Three Phase Frequency Converter....pdf
December 2019 6