「東雲忠太郎」の平凡な日常のできごと

2010.01.04

BullZipメモ

カテゴリ：カテゴリ未分類

'*****************************************************
'Bullzip PDF Printerを使ったPDF作成
'アクティブなワークシートを、C:\text.pdfに保存します。

'Bullzip PDF Printerのインストール必須
'*****************************************************
Dim objPrinterSettings As Object
Dim printerName As String
Dim savePath As String

Set objPrinterSettings = CreateObject("Bullzip.PDFPrinterSettings")

printerName = "Bullzip PDF Printer" 'プリンタ名
Dim fullPrinterName As String
fullPrinterName = GetFullNetworkPrinterName(printerName)

'保存するためのプリンタ設定を行う

With objPrinterSettings
.SetValue "output", savePath
.SetValue "showsettings", "never"
.WriteSettings True
End With

'アクティブなプリンタを一時的にBullzipに変更
printerBuf = Application.ActivePrinter
ActivePrinter = fullPrinterName

'PDFに変換
ActiveSheet.PrintOut

'アクティブなプリンタを戻す

End Sub

'*****************************************************
'ネットワークプリンタ名を取得する
' @param printerName : プリンタ名
' @return [printerName] on Ne99: 形式のプリンタ名
'*****************************************************
Function GetFullNetworkPrinterName(printerName As String) As String
Dim currentPrinterName As String
Dim temp_printer_name As String
Dim i As Long

i = 0
Do While i < 100
tempPrinterName = printerName & " on Ne" & Format(i, "00") & ":"
On Error Resume Next
Application.ActivePrinter = tempPrinterName
On Error GoTo 0
If Application.ActivePrinter = tempPrinterName Then
GetFullNetworkPrinterName = tempPrinterName
Exit Do
End If
i = i + 1
Loop
Application.ActivePrinter = currentPrinterName
End Function

お気に入りの記事を「いいね！」で応援しよう