| リスト９：コントロールの初期化時に現在の設定を保存する |
Private Sub UserControl_Initialize()
Dim i As Integer
' プリンタの現在の設定を保存
BackupPrinterSet
' スケールモードをミリ単位に設定
Printer.ScaleMode = vbMillimeters
' 標準フォントを設定
Printer.Font.Name = "ＭＳ 明朝"
Printer.Font.Size = 10
' ラベルにプリンタ名を表示
lblPrinterName.Caption = Printer.DeviceName
End Sub |
本文へ戻る
|