Access Tips #286 特定のプリンタ情報を得る

Private Sub cboPrinterList_AfterUpdate()
'コンボボックスでのプリンタの選択時

  Dim strMsg As String

  'そのプリンタの情報をラベルに表示
  With Application.Printers(Me!cboPrinterList.Value)
    strMsg = "上マージン:" & .TopMargin & vbCrLf
    strMsg = strMsg & "下マージン:" & .BottomMargin & vbCrLf
    strMsg = strMsg & "左マージン:" & .LeftMargin & vbCrLf
    strMsg = strMsg & "右マージン:" & .RightMargin & vbCrLf
    strMsg = strMsg & "用紙の向き:" & .Orientation & vbCrLf
    strMsg = strMsg & "用紙サイズ:" & .PaperSize & vbCrLf
  End With

  Me!lblPrinterInfo.Caption = strMsg

End Sub


#286	特定のプリンタ情報を得る	レポート、VBA
Printerオブジェクトの各種のプロパティ値を調べることによって、そのプリンタの情報を得ることができます。次のプログラムでは、コンボボックス"cboPrinterList"で選択されたプリンタのいくつかの情報をラベルコントロールに表示しています。なお、コンボボックスにはPrinterオブジェクトのDeviceNameプロパティの値が入っているものとします。 Private Sub cboPrinterList_AfterUpdate() 'コンボボックスでのプリンタの選択時 Dim strMsg As String 'そのプリンタの情報をラベルに表示 With Application.Printers(Me!cboPrinterList.Value) strMsg = "上マージン:" & .TopMargin & vbCrLf strMsg = strMsg & "下マージン:" & .BottomMargin & vbCrLf strMsg = strMsg & "左マージン:" & .LeftMargin & vbCrLf strMsg = strMsg & "右マージン:" & .RightMargin & vbCrLf strMsg = strMsg & "用紙の向き:" & .Orientation & vbCrLf strMsg = strMsg & "用紙サイズ:" & .PaperSize & vbCrLf End With Me!lblPrinterInfo.Caption = strMsg End Sub
\| Index \| Prev \| Next \|