PowerShell のスクリプト内で後述の関数を使用すると以下のエラーになります。
エラー:
"ActivePrinter" の設定中に例外が発生しました: "HRESULT からの例外:0x800A03EC"
後述の関数はもともと ExportAsFixedFormat メソッドで PDF 出力するものでしたが(その際は意図した動作になっていました)、諸要件があり PrintOut に変更しました。
メモリリークを疑い、Excel プロセスをすべて削除した状態でもエラーは解消しませんでした。
コード上の問題はないように思い、プロンプトから以下のコマンドを実行したところ
同様のエラーが出力されました。
実行コマンド:
$excelApp = New-Object -ComObject Excel.Application
$workbook = $excelApp.Workbooks.Add()
$excelApp.Visible = $true
$excelApp.ActivePrinter = "Microsoft Print to PDF"
以上より、PowerShell 側の問題でもないように思えますが、PowerShell に明るくなくそもそも実行方法自体が間違っているのか判断ができません。次のステップへの糸口がなく、何かご助言いただければ幸いです。
現状のコード:
function Convert-ExcelToPDF {
param (
[string]$excelPath,
[string[]]$sheetNames
)
# Start Excel APP
$excelApp = New-Object -ComObject Excel.Application
$excelApp.Visible = $false
$excelApp.DisplayAlerts = $false
try {
# Open file
$workbook = $excelApp.Workbooks.Open($excelPath)
$pdfWorkbook = $excelApp.Workbooks.Add()
foreach ($sheetName in $sheetNames) {
$sheet = $workbook.Sheets.Item($sheetName)
# Copy the specified sheet to the new workbook
$sheet.Copy($pdfWorkbook.Sheets($pdfWorkbook.Sheets.Count))
}
# Create PDF file path
$pdfPath = [System.IO.Path]::ChangeExtension($excelPath, "pdf")
$excelApp.ActivePrinter = "Microsoft Print to PDF"
# Save as PDF
$pdfWorkbook.PrintOut($null, $null, $null, $null, "Microsoft Print to PDF", $null, $null, $pdfPath)
Write-Host "Excel file converted to PDF: $pdfPath"
# Close file
$pdfWorkbook.Close($false)
$workbook.Close($false)
} finally {
# Exit Excel APP
$excelApp.Quit()
}
}