{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["pdf1","do pdf kompletní","pdf2","pdf3"],"not_rendered":{"charts":0,"images":6,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"pdf1","index":0,"n_rows":60,"n_cols":2,"rows_kept":60,"cut":false,"hidden":false,"merged":[[0,0,0,2]]}
["Ukázkový tisk do pdf  - Excel VBA"]
[]
[]
[null,"Tisk do pdf nezobrazovat ukázku"]
[null,"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"]
[null,"    \"D:\\test\\test.pdf\" _"]
[null,"    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _"]
[null,"    :=False, OpenAfterPublish:=False"]
[]
[]
[]
[null,"Tisk do pdf zobrazovat ukázku"]
[null,"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"]
[null,"    \"D:\\test\\test.pdf\" _"]
[null,"    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _"]
[null,"    :=False, OpenAfterPublish:=True"]
[]
[]
[null,"Kvalita"]
[null,"xlQualityMinimum"]
[null,"xlQualityStandard"]
[]
[null,"Tisk do pdf název s časovou značkou"]
[null,"Dim strFilename     As String"]
[null,"'Vytvořit název s datovým razítkem dateStamp"]
[null,"strFilename = \"test\" & Format(Now(), \"yyyymmdd hhmmss\")"]
[]
[null,"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"]
[null,"    \"D:\\test\\\" & strFilename & \".pdf\" _"]
[null,"    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _"]
[null,"    :=False, OpenAfterPublish:=True"]
[]
[]
[]
[]
[null,"Tisk do pdf název z buňky a s časovou značkou"]
[null,"test"]
[]
[null,"Dim strFilename     As String"]
[null,"Dim rngRange        As Range"]
[null,"'Vytvořit název s datovým razítkem dateStamp"]
[null,"strFilename = \"test\" & Format(Now(), \"yyyymmdd hhmmss\")"]
[]
[null,"Set rngRange = Worksheets(\"pdf1\").Range(\"B34\")"]
[]
[null,"Sheets(Array(\"pdf1\", \"pdf2\", \"pdf3\")).Select"]
[null,"Sheets(\"pdf1\").Activate"]
[null,"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"]
[null,"    \"D:\\test\\\" & strFilename & \".pdf\" _"]
[null,"    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _"]
[null,"    :=False, OpenAfterPublish:=True"]
[]
[]
[null,"Tisk více listu"]
[null,"ThisWorkbook.Sheets(Array(\"pdf1\", \"pdf2\", \"pdf3\")).Select"]
[]
[null,"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"]
[null,"    \"D:\\test\\test.pdf\" _"]
[null,"    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _"]
[null,"    :=False, OpenAfterPublish:=True"]

{"sheet":"do pdf kompletní","index":1,"n_rows":65,"n_cols":2,"rows_kept":65,"cut":false,"hidden":false,"merged":[[0,0,0,9]]}
["Tisk do pdf kód i internetu"]
[]
[]
[]
[null,"Sub PDFActiveSheet()"]
[null," ' z internetu"]
[null,"'for Excel 2010 and later"]
[null,"Dim wsA As Worksheet"]
[null,"Dim wbA As Workbook"]
[null,"Dim strTime As String"]
[null,"Dim strName As String"]
[null,"Dim strPath As String"]
[null,"Dim strFile As String"]
[null,"Dim strPathFile As String"]
[null,"Dim myFile As Variant"]
[null,"On Error GoTo errHandler"]
[]
[null," včetně vyplnění datumu a času do názvu souboru"]
[null,"Set wbA = ActiveWorkbook"]
[null,"Set wsA = ActiveSheet"]
[null,"strTime = Format(Now(), \"yyyymmdd\\_hhmm\")"]
[]
[null,"'get active workbook folder, if saved"]
[null,"strPath = wbA.Path"]
[null,"If strPath = \"\" Then"]
[null,"  strPath = Application.DefaultFilePath"]
[null,"End If"]
[null,"strPath = strPath & \"\\\""]
[]
[null,"'replace spaces and periods in sheet name"]
[null,"strName = Replace(wsA.Name, \" \", \"\")"]
[null,"strName = Replace(strName, \".\", \"_\")"]
[]
[null,"create default name for saving file"]
[null,"strFile = strName & \"_\" & strTime & \".pdf\""]
[null,"strPathFile = strPath & strFile"]
[]
[null,"'use can enter name and"]
[null,"' select folder for file"]
[null,"myFile = Application.GetSaveAsFilename _"]
[null,"    (InitialFileName:=strPathFile, _"]
[null,"        FileFilter:=\"PDF Files (*.pdf), *.pdf\", _"]
[null,"        Title:=\"Vyber složku pro uložení souboru:\")"]
[]
[null,"'export to PDF if a folder was selected"]
[null,"If myFile <> \"False\" Then"]
[null,"    wsA.ExportAsFixedFormat _"]
[null,"        Type:=xlTypePDF, _"]
[null,"        Filename:=myFile, _"]
[null,"        Quality:=xlQualityStandard, _"]
[null,"        IncludeDocProperties:=True, _"]
[null,"        IgnorePrintAreas:=False, _"]
[null,"        OpenAfterPublish:=False"]
[null,"    'confirmation message with file info"]
[null,"    MsgBox \"PDF vytvořeno: \" _"]
[null,"      & vbCrLf _"]
[null,"      & myFile"]
[null,"End If"]
[]
[null,"exitHandler:"]
[null,"    Exit Sub"]
[null,"errHandler:"]
[null,"    MsgBox \"PDF nelze vytvořit\""]
[null,"    Resume exitHandler"]
[null,"End Sub"]

{"sheet":"pdf2","index":2,"n_rows":1,"n_cols":1,"rows_kept":1,"cut":false,"hidden":false,"merged":[[0,0,0,8]]}
["Ukázkový tisk do pdf Excel VBA 2"]

{"sheet":"pdf3","index":3,"n_rows":1,"n_cols":1,"rows_kept":1,"cut":false,"hidden":false,"merged":[[0,0,0,8]]}
["Ukázkový tisk do pdf Excel VBA 3"]