VB実用⑪　印刷Ⅰ（プリンタ設定）

Size: px

Start display at page:

Download "VB実用⑪　印刷Ⅰ（プリンタ設定）"

ちかこことじ
5 years ago
Views:

印刷 Ⅰ VB 2005 1 プログラムの概要事務処理に於いて集計結果等を印刷して確認等を行う事も多い為ペーパーレスオフィスが推奨される昨今に於いても矢張り印刷に関する技術は必要で有る Visual Basic から印刷を行う方法は.

1 印刷 Ⅰ VB プログラムの概要事務処理に於いて集計結果等を印刷して確認等を行う事も多い為ペーパーレスオフィスが推奨される昨今に於いても矢張り印刷に関する技術は必要で有る Visual Basic から印刷を行う方法は.NET 以降 PrintDocument オブジェクトを使用する方法が標準機能と仕て一般的で有るが Professional 版等では ReportView や CrystalReport を利用する事も可能で有る亦 2008 では視覚的確認が容易な FormPrint が機能を向上させて復活して居る此処では使用可能な総てのプリンタを取得して其の中から印刷に使用するプリンタを指定する方法とダイアログボックスを使用してプリンタに関する各種設定を行う方法に付いて学習する亦 API を使用してプリンタに関する各種設定を行う方法に付いても学習する今回の課題項目 System.Drawing.Printing 名前空間 ( 印刷関連のサービスを提供 ) System.Drawing.Printing.PrinterSettings クラス ( 印刷方法に関する情報を指定 ) System.Drawing.Printing.PrintDocument クラス ( プリンタに出力を送信 ) InstalledPrinters コレクション (Count プロパティ Item プロパティ ) PrintDialog コントロールの利用 (PrinterSettings プロパティ ) PageSetupDialog コントロールの利用 (PageSettings プロパティ ) 印刷 (PrintDocument.Print メソッド PrintDocument.PrintPage イベント ) 今回の重点項目 System.Drawing.Printing 名前空間 ( 印刷関連のサービスを提供 ) System.Drawing.Printing.PrinterSettings クラス ( 印刷方法に関する情報を指定 ) System.Drawing.Printing.PrintDocument クラス ( プリンタに出力を送信 ) InstalledPrinters コレクション (Count プロパティ Item プロパティ ) PrintDialog コントロールの利用 (PrinterSettings プロパティ ) PageSetupDialog コントロールの利用 (PageSettings プロパティ ) -1-

オブジェクトプロパティ一覧適宜作成ボタン 1 ボタン 2 ラベル 2 ラベル 1 コンボボックスプリントダイアログページセットアップダイアログコントロールの種類プロパティプロパティの設定値フォーム Name PrinterSetting BackgroundImage 花見.gif FormBorderStyle FixedSingle Icon printer.

2 オブジェクトプロパティ一覧適宜作成ボタン 1 ボタン 2 ラベル 2 ラベル 1 コンボボックスプリントダイアログページセットアップダイアログコントロールの種類プロパティプロパティの設定値フォーム Name PrinterSetting BackgroundImage 花見.gif FormBorderStyle FixedSingle Icon printer.ico StartPosition CenterScreen Text プリンタ設定ボタン1 Name btnsetprinter Text プリンタ設定 Font MS 明朝 12 太字ボタン2 Name btnsetpage Text ページ設定 Font MS 明朝 12 太字ラベル1 Name lbldefaultprintercaption BackColor Transparent Text 既定プリンタラベル2 Name lbldefaultprinter AutoSize False BackColor White コンボボックス Name cboprinters Font MS 明朝 10 標準 PrintDialog Name dlgprint PageSetupDialog Name dlgpage -2-

3 プログラムリスト Imports System.Drawing.Printing Imports System.Drawing.Printing.PrinterSettings ネームスペース ( 名前空間 ) の使用を宣言して居る Public Class PrinterSetting ' フォームが読み込まれた時の処理 Private Sub PrinterSetting_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs ) Handles MyBase.Load Dim I As Integer Dim S As String ' 使用出来るプリンタの一覧を取得 For I = 0 To ( InstalledPrinters.Count - 1 ) ' インストールされて居るプリンタ名を取得 S = InstalledPrinters.Item( I ) ' プリンタ名をコンボボックスに追加 cboprinters.items.add( S ) Next ' 既定プリンタの表示 Dim D As New PrinterSettings lbldefaultprinter.text = D.PrinterName End Sub 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない使用可能なプリンタが無い場合は InstalledPrinters の Count プロパティの値は 0 で有るインストールされて居る総てのプリンタの名前をコンボボックスに表示する使用するプリンタ ( 通常使用するプリンタ ) を取得してラベルに表示する ' ボタン ( プリンタ設定 ) がクリックされた時の処理 Private Sub btnsetprinter_click( ByVal sender As System.Object, _ ByVal e As System.EventArgs ) Handles btnsetprinter.click ' 印刷に使用する PrintDocument の宣言とインスタンス化 Dim P As New PrintDocument( ) 印刷ダイアログボックスを表示し OK ボタンがクリックされたかを検証する ' ダイアログボックスの表示 If dlgprint.showdialog( ) = Windows.Forms.DialogResult.OK Then ' イベントハンドラの追加 PrintDocument オブジェクトの AddHandler P.PrintPage, AddressOf PrintOut PrintPage イベントを PrintOut ' ダイアログボックスの設定をドキュメントに反映プロシージャに関連付ける P.PrinterSettings = dlgprint.printersettings ' 印刷の開始 P.Print( ) Print は印刷プロセスを開始す End If るメソッドで有る ' 印刷に使用した PrintDocument の破棄 P.Dispose( ) End Sub 使用済みの PrintDocument オブジェクトは破棄してメモリから開放する -3-

4 ' ボタン ( ページ設定 ) がクリックされた時の処理 Private Sub btnsetpage_click( ByVal sender As System.Object, _ ByVal e As System.EventArgs ) Handles btnsetpage.click Dim P As New PrintDocument( ) 使用するプリンタの印刷設定を印刷設定ダイアログに設定する dlgpage.document = P If dlgpage.showdialog( ) = Windows.Forms.DialogResult.OK Then AddHandler P.PrintPage, AddressOf PrintOut 印刷設定ダイアログボックスを表 P.OriginAtMargins = True 示し OK ボタンがクリックされた P.DefaultPageSettings = dlgpage.pagesettings かを検証する P.Print( ) End If 印刷設定ダイアログボックスで設 P.Dispose( ) 定された総ての印刷設定を設定す End Sub る ' コンボボックスの選択項目が変化した時の処理 Private Sub cboprinters_selectedindexchanged( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cboprinters.selectedindexchanged If Not cboprinters.selectedindex < 0 Then コンボボックスで選択されて居る ' 使用プリンタの設定プリンタを取得する Dim P As New PrintDocument( ) P.PrinterSettings.PrinterName = cboprinters.text コンボボックスで選択されて居る ' 指定プリンタに依る印刷プリンタを其れを使用するプリン If P.PrinterSettings.IsValid Then タに設定する AddHandler P.PrintPage, AddressOf PrintOut P.Print( ) IsValid はプリンタが有効かを示 Else すプロパティで有る MsgBox( " 指定したプリンタは使用出来ません!", MsgBoxStyle.Critical, " 通知 " ) End If P.Dispose( ) PrintDocument オブジェクトの End If Print メソッドが実行されると End Sub PrintPage イベントが発生し此 ' 印刷するジェネラルプロシージャ (PrintPage イベントを捕捉 ) Private Sub PrintOut( ByVal sender As System.Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs ) Dim G As Graphics = e.graphics Dim S As String に描画する G.Clear( Color.White ) S = " 印刷テスト " G.DrawString(S, New Font("MS 明朝 ", 15.0!, FontStyle.Bold), Brushes.Black, 30.0!, 30.0!) S = " 指定したプリンタで印刷されたか確認してください " G.DrawString(S, New Font("MS 明朝 ", 10.0!, FontStyle.Regular), Brushes.Black, 30.0!, 60.0!) End Sub End Class -4- のプロシージャが実行される印刷する内容は総て Graphics オブジェクトを使用して印刷頁

5 System.Drawing.Printing 名前空間 System.Drawing.Printing 名前空間には印刷関連のサービスが用意されて居る System.Drawing.Printing 名前空間に含まれるクラスは下記の通りで有るクラス InvalidPrinterException Margins MarginsConverter PageSettings PaperSize PaperSource PreviewPageInfo PreviewPrintController PrintController PrintDocument PrinterResolution PrinterSettings PaperSizeCollection PaperSourceCollection PrinterResolutionCollection StringCollection PrinterUnitConvert PrintEventArgs PrintingPermission PrintingPermissionAttribute PrintPageEventArgs QueryPageSettingsEventArgs StandardPrintController 説明無効なプリンタ設定を使用してプリンタにアクセスしようとした時にスローされる例外を表す印刷ページの余白の大きさを指定する Margins の MarginsConverter を提供する単一の印刷ページに適用する設定を指定する用紙のサイズを指定するプリンタに用紙を供給する用紙トレイを指定する単一ページの印刷プレビュー情報を指定するドキュメントを一連のイメージと仕て画面に表示するプリントコントローラを指定するドキュメントの印刷方法を制御するプリンタに出力を送信する再利用可能なオブジェクトを定義するプリンタでサポートされる解像度を表すドキュメントの印刷方法に関する情報 ( 印刷に使用するプリンタ等 ) を指定する PaperSize オブジェクトのコレクションを格納する PaperSource オブジェクトのコレクションを格納する PrinterResolution オブジェクトのコレクションを格納する String オブジェクトのコレクションを格納する Win32 で印刷に使用する API との相互運用で使用出来る一連の変換メソッドを指定する BeginPrint イベントと EndPrint イベントのデータを提供するプリンタへのアクセスを制御する宣言印刷アクセス許可チェックが出来る様に成る PrintPage イベントのデータを提供する QueryPageSettings イベントのデータを提供するプリンタに情報を送信するプリントコントローラを指定する System.Drawing.Printing 名前空間に含まれる列挙体は下記の通りで有る列挙体 Duplex PaperKind PaperSourceKind PrintAction PrinterResolutionKind PrinterUnit PrintingPermissionLevel PrintRange 説明プリンタの両面印刷設定を指定する標準の用紙サイズを指定する標準の給紙方法を指定する発生して居る印刷操作の種類を指定するプリンタの解像度を指定する印刷に使用する長さの単位を指定するコードが実行を許可される印刷の種類を指定する印刷するドキュメント部分を指定する -5-

6 System.Drawing.Printing.PrinterSettings クラスドキュメントの印刷方法に関する情報 ( 印刷に使用するプリンタ等 ) を指定する通常 PrintDocument.PrinterSettings プロパティや PageSettings.PrinterSettings プロパティを使用して PrinterSettings にアクセスしプリンタ設定を変更する最も一般的なプリンタ設定は印刷するプリンタを指定する PrinterName で有る System.Drawing.Printing.PrinterSettings クラスに含まれるプロパティは下記の通りで有る名前説明 CanDuplex プリンタが両面印刷をサポートして居るか何うかを示す値を取得する Collate ドキュメントを部単位で印刷するか何うかを示す値を取得設定する Copies 印刷するドキュメントの部数を取得設定する DefaultPageSettings プリンタの既定のページ設定を取得する Duplex 両面印刷用のプリンタ設定を取得設定する FromPage 印刷開始ページの番号を取得設定する InstalledPrinters コンピュータにインストールされて居る総てのプリンタの名前を取得する IsDefaultPrinter 明示的に PrinterName を設定した場合を除き PrinterName プロパティが通常使うプリンタに指定されて居るか何うかを示す値を取得する IsPlotter プリンタがプロッタか何うかを示す値を取得する IsValid PrinterName プロパティが有効なプリンタに指定されて居るか何うかを示す値を取得する LandscapeAngle 縦向きの用紙を回転して横向きにする場合の角度 ( ) を取得する MaximumCopies プリンタで一度に印刷出来る最大部数を取得する MaximumPage PrintDialog で選択出来る FromPage や ToPage の最大値を取得設定する MinimumPage PrintDialog で選択出来る FromPage や ToPage の最小値を取得設定する PaperSizes プリンタでサポートされて居る用紙サイズを取得する PaperSources プリンタで使用出来る用紙トレイを取得する PrinterName 使用するプリンタの名前を取得設定する PrinterResolutions プリンタでサポートされて居る解像度を総て取得する PrintFileName ファイルに出力する際にファイル名を取得設定する PrintRange ユーザーが指定した印刷ページの番号を取得設定する PrintToFile ファイルに印刷出力を送信するか何うかを示す値を取得設定する SupportsColor プリンタがカラー印刷をサポートして居るか何うかを示す値を取得する ToPage 印刷終了ページの番号を取得設定する System.Drawing.Printing.PrinterSettings クラスに含まれる主なメソッドは下記の通りで有る名前 CreateMeasurementGraphics GetHdevmode GetHdevnames IsDirectPrintingSupported SetHdevmode SetHdevnames ToString 説明プリンタ情報を格納する Graphics を返す DEVMODE 構造体を識別するハンドルを作成する DEVNAMES 構造体を識別するハンドルを作成するイメージファイル印刷が可能かを示す値を返す特定のハンドルから PrinterSettings に関連情報をコピーする特定のハンドルから PrinterSettings に関連情報をコピーする PrinterSettings に関する情報を文字列形式で提供する -6-

7 System.Drawing.Printing.PrintDocument クラスプリンタに出力を送信する再利用可能なオブジェクトを定義する通常は PrintDocument クラスのインスタンスを作成し印刷方法を記述したプロパティを設定して Print メソッドを呼び出す事で印刷プロセスを開始する Print メソッドを呼び出すと自動的に PrintPage イベントが発生する此の時に PrintPageEventArgs に含まれて居る Graphics を使用して印刷する出力を行う猶実際に印刷が実行される ( プリントアウトが開始される ) のは PrintPage イベントを抜けた時で有る Visual Basic 6.0 以前の様に Printer オブジェクトの EndDoc メソッドが呼び出されると直ちに印刷が実行される訳ではない此れは複数ページを連続して印刷する場合には時に気を付ける必要が有る System.Drawing.Printing.PrintDocument クラスに含まれる主なプロパティは下記の通りで有る名前 DefaultPageSettings DocumentName OriginAtMargins PrintController PrinterSettings 説明印刷する総てのページの既定値と仕て使用されるページ設定を取得設定するドキュメントの印刷中に表示するドキュメント名を取得設定する例えば印刷ステータスダイアログボックスやプリンタキューに表示するページに関連付けられて居るグラフィックオブジェクトの位置がユーザー指定の余白の内側に有るかページの印刷可能領域の左上隅に有るかを示す値を取得設定する印刷プロセスを制御するプリントコントローラを取得設定するドキュメントを印刷するプリンタを取得設定する System.Drawing.Printing.PrintDocument クラスに含まれる主なメソッドは下記の通りで有る名前説明 Dispose Component に依り使用されて居るリソースを解放する OnBeginPrint BeginPrint イベントを発生させる (Print メソッドが呼び出された後ドキュメントの最初のページが印刷される前に呼び出される ) OnEndPrint EndPrint イベントを発生させる ( ドキュメントの最後のページが印刷された時に呼び出される ) OnPrintPage PrintPage イベントを発生させる ( ページの印刷前に呼び出される ) OnQueryPageSettings QueryPageSettings イベントを発生させる ( 各 PrintPage イベントの直前に呼び出される ) Print ドキュメントの印刷プロセスを開始する ToString 印刷ドキュメントに関する情報を文字列形式で提供する System.Drawing.Printing.PrintDocument クラスに含まれる主なイベントは下記の通りで有る名前 BeginPrint EndPrint PrintPage QueryPageSettings 説明 Print メソッドが呼び出された時 ( ドキュメントの最初のページが印刷される前 ) に発生するドキュメントの最後のページが印刷された時に発生する現在のページに印刷する出力が必要な時に発生する各 PrintPage イベントの直前に発生する -7-

8 ~ System.Drawing.Printing.PrinterSettings.InstalledPrinters プロパティ機能書式解説コンピュータにインストールされて居る総てのプリンタの名前を取得するプロパティ Object.InstalledPrinters インストールされて居るプリンタの名前のコレクションを使用してユーザーが印刷先のプリンタを選択出来る様にする Object には PrinterSettings クラスのインスタンスを指定するが同クラスがインポートされて居る場合は Object を省略して記述する事も出来る InstalledPrinters プロパティはコレクションで有り下記の様に Count プロパティで使用して居るコンピュータにインストールされて居るプリンタの数を取得する事が出来る Object.InstalledPrinters.Count 亦各プリンタの名前は下記の様に Item プロパティで取得する事が出来る猶此の Item プロパティもコレクションで有り 0 から Object.InstalledPrinters.Count-1 迄の序数で個々のプリンタ名を取得する Object.InstalledPrinters.Item(0) Object.InstalledPrinters.Item(Object.InstalledPrinters.Count-1) System.Drawing.Printing.PrinterSettings.PrinterName プロパティ機能書式解説使用するプリンタの名前を取得設定するプロパティ Object.PrinterName インストールされて居るプリンタの名前のコレクションを使用してユーザーが印刷先のプリンタを選択出来る様にする Object には PrinterSettings クラスのインスタンスを指定する使用するプリンタを指定するには下記の様に PrinterName プロパティにプリンタ名を文字列で設定する Object.PrinterName = " プリンタ名 " 猶プリンタ名を設定した後 IsValid メソッドを使用してプリンタ名がシステムで有効なプリンタと仕て認識されるか何うかを判断する事が望ましい亦 InstalledPrinters プロパティを使用してシステムにインストールされて居るプリンタの一覧を取得する事も出来る -8-

9 PrintDialog コントロールユーザーがプリンタを選択し印刷するドキュメント部分を選択出来る様にするコントロールで有る PrintDialog コンポーネントの概要 Windows フォームの PrintDialog コンポーネントは Windows ベースのアプリケーションで出力先プリンタや印刷範囲等の印刷設定に使用する定義済みダイアログボックスで有る此のダイアログボックスは独自のダイアログボックスを使用せずにプリンタ等の印刷設定を行う為の簡易ソリューションと仕て使用するドキュメント全体指定したページ範囲選択した部分等様々な印刷範囲を指定する事が出来る此れに依り Windows の標準のダイアログボックスを使用して一般的な基本機能を持つアプリケーションを作成する事が出来る PrintDialog コンポーネントは CommonDialog クラスを継承する PrintDialog コンポーネントの操作実行時にダイアログボックスを表示するには ShowDialog メソッドを使用する此のコンポーネントには印刷ジョブ単位で適用されるプロパティ (PrintDocument クラス ) とプリンタ単位で適用されるプロパティ (PrinterSettings クラス ) が有る此の孰れかを複数のプリンタで共有出来るフォームに登録すると PrintDialog コンポーネントは Windows フォームデザイナの下部のトレイに表示される PrintDialog コンポーネントの使用 PrintDialog コンポーネントは多くのユーザーに馴染みの Windows の標準印刷ダイアログボックスで有るユーザーが簡単に使用出来る為 PrintDialog コンポーネントを使用する事を推奨する PrintDialog コンポーネントを表示するにはアプリケーションのコードから ShowDialog メソッドを呼び出すコンポーネントが表示されるとユーザーは其れを使用して印刷ジョブのプロパティを設定する此の設定は印刷ジョブに関連付けられて居る PrinterSettings クラス ( ユーザーが PrintDialog コンポーネントを通じて PageSetupDialog コンポーネントにアクセスして居る場合は PageSettings クラス ) に保存される其の後で設定されたプロパティを呼び出して印刷ジョブの詳細を確認する事が出来る PrintDialog コンポーネントは既定でツールボックスの印刷セクションに表示されて居る PrintDialog コンポーネントで指定した設定を実際の印刷に反映させるには下記の様に PrintDocument クラスのインスタンスの PrinterSettings プロパティに PrintDialog コンポーネントの PrinterSettings プロパティを設定する Dim Object As New PrintDocument( ) Object.PrinterSettings = PrintDialogObject.PrinterSettings 猶 PrintDocument クラスのインスタンスには PrintDocument コンポーネントを指定する事も出来る PrintDocument コンポーネントは既定でツールボックスの印刷セクションに表示されて居る -9-

10 PageSetupDialog コントロール余白や用紙方向等ページ関連の印刷設定をユーザーが変更出来る様にするコントロールで有る PageSetupDialog コンポーネントの概要 Windows フォームの PageSetupDialog コンポーネントは Windows ベースのアプリケーションで印刷時のページ設定に使用する定義済みダイアログボックスで有る此のコントロールは独自のダイアログボックスを使用せずにページ設定を行う為の簡易ソリューションと仕て Windows ベースのアプリケーションの中で使用する罫線と余白の調整ヘッダーとフッター及び印刷の縦向きや横向きを設定する事が出来る此れに依り Windows の標準のダイアログボックスを使用して一般的な基本機能を持つアプリケーションを作成する事が出来る PageSetupDialog コンポーネントの操作実行時にダイアログボックスを表示するには ShowDialog メソッドを使用する此のコンポーネントにはページ単位で適用されるプロパティ (PrintDocument クラス ) と総てのドキュメントに適用されるプロパティ (PageSettings クラス ) が有る亦 PageSetupDialog コンポーネントを使用して PrinterSettings クラスに格納される特定のプリンタ設定を決定する事が出来るフォームに登録すると PageSetupDialog コンポーネントは Windows フォームデザイナの下部のトレイに表示される PageSetupDialog コンポーネントの使用 PageSetupDialog コンポーネントは多くのユーザーに馴染みの Windows の標準ページ設定ダイアログボックスで有るユーザーが簡単に使用出来る為 PageSetupDialog コンポーネントを使用する事を推奨する此れを利用するには PrintDocument クラスのインスタンスを指定する必要が有る此れが印刷されるドキュメントに成る亦ユーザーはコンピュータ上にプリンタをローカルかネットワーク経由でインストールして居る必要が有る PageSetupDialog コンポーネントは此のプリンタに基づいてユーザーに提供するページ形式の選択肢を決定する PageSetupDialog コンポーネントを使用する場合に重要な点は此のコンポーネントが PageSettings クラスと何の様に遣り取りするかと謂う点で有る PageSettings クラスは用紙の向きページのサイズ余白等ページの印刷方法を変更する設定を指定する為に使用される此等の各設定は PageSettings クラスのプロパティとして表される PageSetupDialog クラスはドキュメントに関連付けられた PageSettings クラスのインスタンスに対して此等のプロパティを変更する此のインスタンスは DefaultPageSettings プロパティと仕て表される PageSetupDialog コンポーネントは既定でツールボックスの印刷セクションに表示されて居る PageSetupDialog コンポーネントで指定した設定を実際の印刷に反映させるには下記の様に PrintDocument クラスのインスタンスの DefaultPageSettings プロパティに PageSetuoDialog コンポーネントの PageSettings プロパティを設定する Dim Object As New PrintDocument( ) Object.DefaultPageSettings = PageSetupDialogObject.PageSettings 猶必要な物丈を個々に設定する場合は下記の様にする Object.DefaultPageSettings.Margins = PageSetupDialogObject.PageSettings.Margins Object.DefaultPageSettings.PaperSize = PageSetupDialogObject.PageSettings.PaperSize -10-

11 API に依るプリンタの設定プリンタ設定関係の API 関数 (Windows 98) Windows XP 系でプリンタの設定を行うには下記の API を使用する関数名 OpenPrinter ClosePrinter PrinterProperties 解説プリンタオブジェクトのハンドルを取得する API プリンタオブジェクトをクローズする API プリンタ設定ダイアログを表示する API OpenPrinter 関数機能指定されたプリンタ又はプリントサーバーを識別するハンドルを取得する構文 ' プリンタのオブジェクトハンドルを取得する API 関数の宣言 Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _ <MarshalAs(UnmanagedType.LPStr)> _ ByVal pprintername As String, _ ByRef phprinter As IntPtr, _ ByVal pdefault As Integer) As Integer パラメータパラメータ解説 pprintername プリンタ名又はプリントサーバー名を表す文字列を指定する phprinter 整数型の変数を指定する ( 関数から制御が返ると此の変数に開かれたプリンタオブジェクト又はプリントサーバーオブジェクトを表すハンドルが返る ) pdefault 整数型の変数を指定する ( 通常 0 を指定 ) 戻り値関数が成功すると 0 以外の値が返る関数が失敗すると 0 が返る拡張エラー情報を取得するには GetLastError 関数を使用する解説 pdefault パラメータでデータタイプとデバイスモード値を指定する事が出来る此等の値は StartDocPrinter 関数を使用してドキュメントを印刷する目的で使われる併しドキュメントを開始した後も SetJob 関数を使用すると此等の値を再設定する事が出来る OpenPrinter 関数を使用してプリントサーバーのハンドルを開いたりプリントサーバーに対するクライアントのアクセス権を調べる事も出来る此等の作業を行うには pprintername パラメータにプリントサーバー名を指定し PRINTER_DEFAULTS 構造体の pdatatype メンバと pdevmode メンバを NULL に設定し DesiredAccess メンバに SERVER_ALL_ACCESS の様なサーバーアクセスのマスク値を設定する返されたハンドルを WaitForPrinterChange 関数へ渡す事も出来るハンドルを使い終わった時は ClosePrinter 関数に其のハンドルを渡して閉じる猶 Windows 95/98 では OpenPrinter 関数は PRINTER_DEFAULTS 構造体の DesiredAccess メンバを無視する -11-

12 使用構造体 ( ユーザ定義型 ) PRINTER_DEFAULTS 構造体はプリンタアクセス権を定義するメンバ pdatatype pdevmode DesiredAccess 解説プリンタに対するデフォルトのデータの種類を指定する文字列 DEVMODE 構造体を指すポインタプリンタに対する望ましいアクセス権を指定 DEVMODE データ構造体はデバイスの初期化やプリンタの環境に関する情報を保持するメンバ dmdevicename dmspecversion dmdriverversion dmsize dmdriverextra dmfields dmorientation dmpapersize 解説ドライバがサポートするデバイス名を指定 ( 例えば PCL/HP LaserJetR の場合は PCL/HP LaserJet に成る各デバイスドライバは重複しない文字列を持つ ) 構造体の基準に成った初期化データ仕様のバージョン番号を指定プリンタドライバの開発者が割り当てたプリンタドライバのバージョン番号を指定 dmdriverdata( デバイス固有の情報 ) メンバを除いた DEVMODE 構造体のサイズをバイト単位で指定 ( データのドライバに依存しない部分而巳を操作するアプリケーションでは此のメンバを使ってバージョンの違いを考慮せずに構造体のサイズを調べる事が出来る ) 此の構造体に続くプライベートなドライバデータのバイト長を保持 ( デバイスドライバがデバイス固有の情報を使わない時は此のメンバに 0 を設定 ) DEVMODE 構造体の残りのメンバで初期化されて居るメンバを指定 ( ビット 0 が dmorientation に対応しビット 1 が dmpapersize に対応すると謂う様に表すプリンタドライバは此等のメンバの内プリンタの仕様に適合したメンバ而巳をサポートする ) 用紙の方向を指定 ( 此のメンバは DMORIENT_PORTRAIT ( 1 ) 又は DMORIENT_LANDSCAPE(2) の孰れかに成る ) 印刷する用紙のサイズを指定 ( 用紙の高さと幅が夫々れ dmpaperlength と dmpaperwidth メンバに設定されて居る時は此のメンバには 0 を設定する事が出来る其れ以外は次の定義済みの値の孰れかを dmpapersize メンバに設定する事が出来る ) DMPAPER_LETTER MPAPER_LEGAL DMPAPER_A4 DMPAPER_CSHEET DMPAPER_DSHEET DMPAPER_ESHEET DMPAPER_LETTERSMALL DMPAPER_TABLOID DMPAPER_LEDGER DMPAPER_STATEMENT DMPAPER_EXECUTIVE DMPAPER_A3 DMPAPER_A4SMALL DMPAPER_A5 DMPAPER_B4 DMPAPER_B5 DMPAPER_FOLIO DMPAPER_QUARTO DMPAPER_10X14 DMPAPER_11X17 Letter 8 1/2 11 インチ Legal 8 1/2 14 インチ A4 シート mm C シートインチ D シートインチ E シートインチ Letter Small 8 1/2 11 インチ Tabloid インチ Ledger インチ Statement 5 1/2 8 1/2 インチ Executive 7 1/4 10 1/2 インチ A3 シート mm A4 small シート mm A5 シート mm B4 シート mm B5 シート mm Folio 8 1/2 13 インチ Quarto mm インチシートインチシート -12-

13 DMPAPER_NOTE DMPAPER_ENV_9 DMPAPER_ENV_10 DMPAPER_ENV_11 DMPAPER_ENV_12 DMPAPER_ENV_14 DMPAPER_ENV_DL DMPAPER_ENV_C5 DMPAPER_ENV_C3 DMPAPER_ENV_C4 DMPAPER_ENV_C6 DMPAPER_ENV_C65 DMPAPER_ENV_B4 DMPAPER_ENV_B5 DMPAPER_ENV_B6 DMPAPER_ENV_ITALY DMPAPER_ENV_MONARCH DMPAPER_ENV_PERSONAL DMPAPER_FANFOLD_US DMPAPER_FANFOLD_STD_GERMAN DMPA PER_FANFOLD_LGL_GERMAN Note 8 1/2 11 インチ #9 Envelope 3 7/8 8 7/8 インチ #10 Envelope 4 1/8 9 1/2 インチ #11 Envelope 4 1/2 10 3/8 インチ #12 Envelope 4 3/4 11 インチ #14 Envelope /2 インチ DL Envelope mm C5 Envelope mm C3 Envelope mm C4 Envelope mm C6 Envelope mm C65 Envelope mm B4 Envelope mm B5 Envelope mm B6 Envelope mm Italy Envelope mm Monarch Envelope 3 7/8 7 1/2 インチ 6 3/4 Envelope 3 5/8 6 1/2 インチ US Std Fanfold 14 7/8 11 インチ German Std Fanfold 8 1/2 12 インチ German Legal Fanfold 8 1/2 13 インチ dmpaperlength dmpaperwidth dmscale dmcopies dmdefaultsource dmprintquality dmpapersize メンバで指定された用紙の長さを独自の用紙サイズやドッドマトリックスプリンタの様なデバイスの為にオーバライド ( 此れに依り様々な長さの用紙に印刷する事が出来る此の構造体の物理的な長さを指定する他の総てのメンバ同様に 10 分の 1mm 単位で指定する ) dmpapersize メンバで指定された用紙幅をオーバライド印刷出力をスケーリングする時のスケーリング係数を指定 ( 見掛けのページサイズは物理ページサイズに dmscale/100 を掛けてスケーリングされる例えばレターサイズのページで dmscale の値が 50 の時は出力テキストやグラフィックの高さや幅が元のサイズの半分に成る為インチのページと同じ量のデータを持つ事が出来る ) デバイスが複数部数のコピーをサポートして居る時は印刷するコピー部数を指定予約されて居り 0 固定プリンタの解像度を指定 ( デバイスに依存しない次の 4 つの定義済みの値が用意されて居る正の値が指定されるとインチ当たりのドット数 DPI を示す其の為値はデバイスに依存する ) DMRES_HIGH DMRES_MEDIUM DMRES_LOW DMRES_DRAFT dmcolor カラープリンタでカラーとモノクロの切替 ( 次の値が設定可能 ) DMCOLOR_COLOR DMCOLOR_MONOCHROME dmduplex 両面印刷が出来るプリンタで両面印刷するか何うかを選択 ( 次の値が設定可能 ) DMDUP_SIMPLEX DMDUP_HORIZONTAL DMDUP_VERTICAL -13-

14 dmyresolution プリンタの y 方向の解像度をインチ当たりのドット数で指定 ( プリンタドライバが此のメンバを初期化すると dmprintquality メンバはプリンタの x 方向の解像度をインチ当たりのドット数で指定する ) dmttoption TrueTypeR フォントの印刷方法を指定 ( 此のメンバには次の値の孰れかを指定 ) DMTT_BITMAP DMTT_DOWNLOAD DMTT_SUBDEV TrueType フォントをグラフィックとして印刷するドットマトリックスプリンタのデフォルトの動作で有る TrueType フォントをソフトフォントとしてダウンロードする Printer Control Language(PCL) を使う Hewlett-Packard のプリンタのデフォルトの動作で有る TrueType フォントをデバイスフォントで置き換える PostScriptR プリンタのデフォルトの動作で有る dmcollate 複数部数を印刷する時にページ順に揃えるか何うかを指定 (DMCOLLATE_FALSE を使うとコピーする部数に拘らずデータはプリンタに 1 回丈しか送られないのでより早く効果的に出力されるプリンタは単純にページを再印刷する様に指示される此のメンバには次の値の孰れかを指定 ) DMCOLLATE_TRUE DMCOLLATE_FALSE 複数部数の印刷時にページ順に揃える複数部数の印刷時にページ順揃えない dmformname dmunusedpadding dmbitsperpel dmpelswidth dmpelsheight 例えば Letter 又は Legal の様な使用するフォーム名を指定 (EnumForms 関数を使用して総ての名前を取り出す事が出来る ) 構造体を DWORD 境界に揃える為に使用 ( 此のメンバを使う事も参照する事も出来ない此のメンバの名前と使用は予約されて居り将来のリリースで変更される事が有る ) ディスプレイデバイスのカラー解像度をピクセル当たりのビット数で指定 ( 例えば 16 色なら 4 ビット 256 色なら 8 ビット色ならば 16 ビットに成る ) 可視のデバイスの表面の幅をピクセル単位で指定可視のデバイスの表面の高さをピクセル単位で指定 dmdisplayflags デバイスのディスプレイモードを指定 ( 次の物がフラグと仕て有効 ) DM_GRAYSCALE DM_INTERLACED ディスプレイが非カラーのデバイスで有る事を指定する此のフラグが設定されて居ないとカラーデバイスと看做すディスプレイモードがインターレースで有る事を指定する此のフラグが設定されて居ないとノンインターレースで有ると看做す dmdisplayfrequency 特定のモードでのディスプレイデバイスの周波数をヘルツ (1 秒当たりのサイクル数 ) で指定 ClosePrinter 関数機能特定のプリンタオブジェクトをクローズする構文 Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hprinter As IntPtr) As Integer パラメータ hprinter クローズするプリンタオブジェクトのハンドルを指定する OpenPrinter 関数又は AddPrinter 関数が返すハンドルを使用する -14-

15 PrinterProperties 関数機能指定されたプリンタのプロパティダイアログボックスを表示する構文 Private Declare Function PrinterProperties Lib "winspool.drv" ( _ ByVal hwnd As Integer, _ ByVal hprinter As Integer _ ) As Integer パラメータパラメータ hwnd hprinter 解説ダイアログボックスの親ウィンドウを識別するハンドルを指定するプリンタオブジェクトを識別するハンドルを指定する戻り値関数が成功すると 0 以外の値が返る関数が失敗すると 0 が返る拡張エラー情報を取得するには GetLastError 関数を使用する注意事項 Visual Basic.NET 以降では API 関数の使用は推奨されて居ない従って安易に API 関数を使用しない事が望ましい止むを得ない場合に限り使用す可きで有る亦多くの API 関数は Visual Basic 6.0 以前のデータ型に対応して居り Visual Basic.NET 以降で使用するにはデータ型の対応に注意する必要が有る其の為 System.Runtime.InteropServices 名前空間の MarshalAsAttribute クラスの MarshalAs を使用してマネージコード (.NET Framework で管理されたコード ) とアンマネージコード (.NET Framework で管理されないコード ) 間でデータをマーシャリングする方法を示す必要が有る一般に文字列を LPStr LPWStr LPTStr BStr の孰れかと仕てアンマネージコードにマーシャリングする時に用いられる詳しくはサンプルコード (02_API) を参照され度い -15-

ＶＢ．ＮＥＴ解説

ＶＢ．ＮＥＴ解説 Visual Basic.NET 印刷編目次印刷の概要... 2 印刷の流れ... 2 標準の Windows フォーム印刷ジョブの作成... 3 実行時に於ける Windows フォーム印刷オプションの変更... 3 Windows フォームに於ける接続されたプリンタの選択... 4 Windows フォームでのグラフィックスの印刷... 5 Windows フォームでのテキストの印刷...

VB実用⑪ 印刷Ⅰ（プリンタ設定）

VB実用⑪　印刷Ⅰ（プリンタ設定）