To start - I am fairly new at VB so please excuse the crudeness of my explaination and this routine. That said : I am attempting to send and save an electonic prinout (trying to be green) to a folder via a local network. when I run the following routine it does everything that I want, but the format that it end up in is PS instead of a PDF. Is this a Pdfcreator setting or am I going about this the wrong way?
Thanks for any help anyone can offer
Sub sendPdf()
'
' sendPdf Macro
' Macro recorded 10/15/2009 by Casenet User
'
Dim Partno As String
Dim destination As String
Dim PrintLocation As String
Dim extension As String
extension = ".pdf"
destination = "L:\\upload\\finished_baz_validations\\"
Partno = Range("A4").Text
PrintLocation = destination & Partno & extension
If Range("A4").Value = ("PART NUMBER HERE") Then
Beep
MsgBox ("Please Complete Form before submitting")
Else
If Range("J4").Value = True Then
Range("A1:I34").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$34"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne00:", PrintToFile:=True, Collate:=True, PrToFileName:=PrintLocation
Else
MsgBox ("Please Fill in required measurements including your Operator ID and BAZ ID")
End If
End If
End Sub