makro za "save as" sheet1 sadržaja u pdf

Code:
 ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:="C:\My Documents\TEST.pdf", _
       OpenAfterPublish:=False

Code:
Sub Tst_PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
 
    sNomPDF = "Ime PDF Faila.pdf" 'inace moguceje da povuce ime iz odredjene radne sveske i celije primer na sledecoj liniji
    'sNomPDF = Sheets("1").Range("A1").Value
    sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator  'takodje mozese prilagoditi destinacija PDF faila
    'sCheminPDF = "C:\Teste\PDF Failovi"
 
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Inicializacija PDFCreatora nemoguca", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
 
       
        .cOption("AutosaveFormat") = 0  '   "brojevi za razlicite formate" 0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cClearCache
    End With
 
    ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"  'snimanje radne sveske
   'ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"     'snimanje aktivnog radnog lista
   'Sheets("1").PrintOut copies:=1, ActivePrinter:="PDFCreator"     'snimanje odredjenog radnog lista

    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 

    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    JobPDF.cClose
    Set JobPDF = Nothing
  
End Sub