14.09.2018, 06:42 | #2 |
Banned
|
Точно делал такое в прошлых версиях. Уверен что и сейчас без проблем.
Пока нашел такое Print Sales Invoice to PDF file from code P.S. Но если без промежуточного Excel никак то с PDF add-in как вариант Workbook.ExportAsFixedFormat Method (Excel) Пример VBA не к месту но вот PowerShell X++: $path = "C:\Users\Downloads" $xlFixedFormat = "Microsoft.Office.Interop.Excel.xlFixedFormatType" -as [type] $excelFiles = Get-ChildItem -Path $path -include *.xls, *.xlsx -recurse $objExcel = New-Object -ComObject excel.application $objExcel.visible = $false foreach($wb in $excelFiles) { $filepath = Join-Path -Path $path -ChildPath ($wb.BaseName + ".pdf") $workbook = $objExcel.workbooks.open($wb.fullname, 3) $workbook.ActiveSheet.PageSetup.Orientation = 2 $objExcel.PrintCommunication = $false $workbook.ActiveSheet.PageSetup.FitToPagesTall = $false $workbook.ActiveSheet.PageSetup.FitToPagesWide = 1 $objExcel.PrintCommunication = $true $workbook.Saved = $true "saving $filepath" $workbook.ExportAsFixedFormat($xlFixedFormat::xlTypePDF, $filepath) $objExcel.Workbooks.close() } $objExcel.Quit() Последний раз редактировалось ax_mct; 14.09.2018 в 07:11. |
|
|
|