Hey ich habe etwas gefunden. Ist mehr ein Work-Around als alles andere. Aber solange es funktioniert....
AutoIt
;*****************************************
;Excel_Probe.au3 by Hammig
;Erstellt mit ISN AutoIt Studio v. 0.98 BETA
;*****************************************
#Include <Excel.au3>
Global Const $sFile = @ScriptDir & "\Test_Excel1.xlsx"
Global Const $sOutput1 = @ScriptDir & "\OutputFile1.pdf"
Global Const $sOutput2 = @ScriptDir & "\OutputFile2.pdf"
Global Const $sOutput3 = @ScriptDir & "\OutputFile3.pdf"
Global Const $sOutput4 = @ScriptDir & "\OutputFile4.pdf"
FileDelete($sOutput1)
FileDelete($sOutput2)
FileDelete($sOutput3)
FileDelete($sOutput4)
Global $oExcel = _ExcelBookOpen($sFile,1,1)
; COmplete Dokument as PDF
$oExcel.ActiveWorkbook.ExportAsFixedFormat(0, $sOutput1)
; Partial Dokument as PDF, One Range
$oExcel.ActiveSheet.Range("B:D").ExportAsFixedFormat(0, $sOutput2)
; Partial Dokument as PDF, Two Range; Ranges get divided into seperate sheets
Global $range1 = $oExcel.ActiveSheet.Range("A:A")
Global $range2 = $oExcel.ActiveSheet.Range("C:D")
Global $range3 = $oExcel.Union($range1,$range2)
$range3.ExportAsFixedFormat(0, $sOutput3, 0, 0, 0)
; Hide Columns, then activate columns that have to be exportet, then complete doc as pdf
Sleep(1000)
;~ $oExcel.ActiveSheet.Columns.Hidden = True
Sleep(1000)
$range3.Columns.Hidden = True
Sleep(1000)
$oExcel.ActiveSheet.ExportAsFixedFormat(0, $sOutput4)
Sleep(1000)
$oExcel.ActiveSheet.Columns.Hidden = False
Sleep(2000)
_ExcelBookClose($oExcel)
;~ ShellExecute($sOutPut1)
;~ ShellExecute($sOutPut2)
;~ ShellExecute($sOutPut3)
ShellExecute($sOutPut4)
Alles anzeigen