getting run time error 1004: method activeprinterof object application failed.

Hi friends,
I want to save a workbook in PDF format using ‘doPDF v7’
I’m getting run time error 1004: method activeprinterof object application failed.

'Option Explicit

Sub prttopdf()
    Dim rng As Range
    Dim DocName As String
    ‘Dim SaveFolder as … ‘suggest variable please

    SaveFolder = "C:\Users\admin\Desktop\"
    
    DocName = Range("B3").Value
    Filename = SaveFolder & DocName
    Set rng = Application.InputBox(Prompt:="Please Select Print Range", Title:="Print Range", Type:=8)
    rng.Select
    Application.ActivePrinter = "doPDF v7"    ' record macro to know printer name
    Selection.PrintOut Copies:=1, ActivePrinter:= _
  "doPDF v7", PrintToFile:=True, Collate:=True, prtofilename:=Filename
End Sub

Any help will be highly appreciated.

Thanking you,

Did you record a macro to get the printer name? (which may not work with PDF, since you can just use

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        FileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Yes, I tried to record a macro to get printer name but in vain.
I opened a workbook. Click on record macro. Give print command. Select doPdf v7 as printer but in recorded macro I didn't get a printer name.

Please suggest me a proper way to get a printer name by recording macro.

The code suggested by you is not working because there is no pdf option in save as file format.

Thank you.

You need an add-in:

http://www.microsoft.com/en-us/downl...s.aspx?id=9943