プリントサーバーに登録してある用紙サイズの取得

質問

いつもご参考にさせて頂いております。
現在Accessにて印刷を行っています。
そこで現状Accessを立ち上げた時に用紙サイズとそのIDを取得する様にしていますが、通常使うプリンタの用紙サイズしか見に行きません。
プリントサーバーにある全ての用紙サイズとIDを取得する方法はあるのでしょうか？
どなたかご教授宜しくお願い致します。

OS:Vista , Access2007
プリンタはドットとレーザーを使用しています。

もし下記以外にもっといい方法があれば、是非ご教授宜しくお願い致します。

'プリンタデバイスドライバの能力を取得する関数の宣言
Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal pDevice As String, ByVal pPort As String, ByVal fwCapability As Long, pOutput As Any, pDevMode As Any) As Long
'ある位置から別の位置にメモリブロックを移動する関数の宣言
Private Declare Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'DeviceCapabilities function constants.
Private Const DC_PAPERNAMES = 16
Private Const DC_PAPERS = 2
Private Const DC_BINNAMES = 12
Private Const DC_BINS = 6
Private Const DEFAULT_VALUES = 0

Private Sub Form_Load()

Dim strDeviceName As String
Dim strDevicePort As String
Dim lngPaperCount As Long
Dim bytPaper() As Byte
Dim strPaperName As String * 64
Dim lngCounter As Long
Dim aintNubytPaper() As Integer
Dim lngRet As Long
Dim db As Database
Dim rs As Recordset

'用紙サイズと番号を保存するテーブルの削除
DoCmd.RunSQL "DELETE * FROM [T_PaperSize]"

Set db = CurrentDb
Set rs = db.OpenRecordset("T_PaperSize")

With Printer
strDeviceName = .DeviceName
strDevicePort = .Port
End With

'問い合わせる内容を指定
'バッファに必要なサイズを取得
lngPaperCount = DeviceCapabilities(strDeviceName, strDevicePort, DC_PAPERNAMES, _
ByVal vbNullString, ByVal vbNullString)
' バッファ確保
ReDim bytPaper(64 - 1, lngPaperCount - 1)
ReDim aintNubytPaper(1 To lngPaperCount)

'用紙名を取得
DeviceCapabilities strDeviceName, strDevicePort, DC_PAPERNAMES, bytPaper(0, 0), ByVal vbNullString
'用紙IDを取得
lngRet = DeviceCapabilities(strDeviceName, strDevicePort, DC_PAPERS, aintNubytPaper(1), ByVal vbNullString)

'用紙名を検索
For lngCounter = 0 To lngPaperCount - 1
'用紙名コピー
MoveMemory ByVal strPaperName, bytPaper(0, lngCounter), 64
' 用紙名追加
'Debug.Print Left(strPaperName, InStr(strPaperName, vbNullChar) - 1) & " " & aintNubytPaper(lngCounter + 1)
rs.AddNew
rs![ID] = aintNubytPaper(lngCounter + 1)
rs![用紙名] = Left(strPaperName, InStr(strPaperName, vbNullChar) - 1)
rs.Update
Next lngCounter

End Sub

回答No.1

OKwebb · ベストアンサー

Application.PrintersからPrinterオブジェクトを取得してくるくるまわす。
例：
Dim prt As Printer
For Each prt In Application.Printers
Debug.Print "デバイス名 : " & prt.DeviceName & vbCrLf _
& "ドライバ名 : " & prt.DriverName & vbCrLf _
& "ポート : " & prt.Port
Next prt

お礼

OKwebb様
ご返事ありがとうございました。

無事取得することができました。

本当にありがとうございました。