Sub xSave_as_PDF()
    Dim sPDF_Name As String, sFileName As String
    Dim xLast As Byte
xLast = InStr(1, UCase(ActiveWorkbook.FullName), ".XLS") - 1
sFileName = Mid(ActiveWorkbook.FullName, 1, xLast)
sPDF_Name = sFileName & "_" & ActiveSheet.Name & ".pdf"
   
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPDF_Name, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
       
    'MsgBox "Úspešne uložené ako súbor: " & sPDF_Name, vbOKOnly, "INFO"
    Exit Sub
   
xErr:
    MsgBox "Nepodarilo sa uložiť ako: : " & sPDF_Name, vbCritical, "CHYBA"
End Sub

Sub Print_as_PDF()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFCreator"
End Sub

Function OznacListy_a_Uloz() As String

' Macro recorded 24.07.2011 by PaloPa

On Error GoTo xErr
    'ChDir "C:\tmp"
    'Workbooks.Open Filename:="C:\tmp\pokusny_001.xls"

    Sheets.Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    
    Exit Function
    
xErr:
OznacListy_a_Uloz = Err.Description
End Function