NSDPPS メンバ

プリンタに文字列、図形を描画します。

●コンストラクタ

名前	説明
NSDPPS	NSDPPSを初期化します。

●プロパティの一覧

名前	引数	説明
BackgroundStyle	( NSDBorderKind )	背景スタイルの設定を行います。
UseGradationAngle	( NSDBorderKind )	グラデーションを使用する場合に、角度の反映有無を指定します。
GradationAngle	( NSDBorderKind )	グラデーションの角度を設定します。

●メソッドの一覧

名前	引数	戻り値	説明
Dispose	なし	なし	NSDPPSクラスのオブジェクトで使用されている全てのリソースを解放します。 ※終了時に必ず呼び出します。 　(内部でCls_Dispose()を呼び出しています。終了処理でCls_Dispose()を呼び出している場合は、呼び出す必要はありません。)
Cls_Dispose	なし	なし	NSDPPSクラスのオブジェクトで使用されている全てのリソースを解放します。 ※終了時に必ず呼び出します。 　(終了処理でDispose()を呼び出している場合は、呼び出す必要はありません。)
SetPageUnit	( PrintPageEventArgs , GraphicsUnit )	Boolean型	長さの単位を指定します。
SetFont	( String , Single , [Boolean] , [Boolean] , [Boolean] , [Boolean] )	Boolean型	描画するフォントをフォント名、サイズ、太字、斜体、取り消し線、下線を指定してセットします。
	( font )	Boolean型	描画するフォントをセットします。
PrnText	( PrintPageEventArgs , String , Single , Single , Color )	Boolean型	文字列、位置、色を指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Color , Boolean )	Boolean型	文字列、位置、色、縦書きか横書きかを指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Color , Boolean , Single )	Boolean型	文字列、位置、色、縦書きか横書き、角度を指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Color , Boolean , Single , TextRenderingHint )	Boolean型	文字列、位置、色、縦書きか横書き、角度、レンダリング品質を指定して文字列を描画します。
PrnDrawText	( PrintPageEventArgs , String , Single , Single , Single , Single , Color )	Boolean型	文字列、位置、幅、高さ、色を指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Boolean )	Boolean型	文字列、位置、幅、高さ、色、縦書きか横書きかを指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Boolean , Single )	Boolean型	文字列、位置、幅、高さ、色、縦書きか横書き、角度を指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Boolean , Single , TextRenderingHint )	Boolean型	文字列、位置、幅、高さ、色、縦書きか横書き、角度、レンダリング品質を指定して文字列を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Boolean , Single , TextRenderingHint , String )	Boolean型	文字列、位置、幅、高さ、縦書きか横書き、角度、レンダリング品質、描画に使用する画像ファイルを指定して文字を描画します。
PrnDrawBorderText	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Color , Single )	Boolean型	文字列、位置、色を指定して縁取り文字を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Color , Single , Boolean )	Boolean型	文字列、位置、色、縦書きか横書きかを指定して縁取り文字を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Color , Single , Boolean , Single )	Boolean型	文字列、位置、色、縦書きか横書き、角度を指定して縁取り文字を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Color , Single , Boolean , Single , TextRenderingHint )	Boolean型	文字列、位置、色、縦書きか横書き、角度、レンダリング品質を指定して縁取り文字を描画します。
	( PrintPageEventArgs , String , Single , Single , Single , Single , Color , Color , Single , Boolean , Single , TextRenderingHint , String , String )	Boolean型	文字列、位置、色、縦書きか横書き、角度、レンダリング品質、描画する画像ファイル名を指定して縁取り文字を描画します。
PrnDrawClippingText	( PrintPageEventArgs , String , Single , Single , Single , Single , Boolean , Single , TextRenderingHint , String , [NSDColorTone] , [ImageAttributes] )	Boolean型	指定枠の中に描画に使用する画像ファイルを指定し、くり抜き文字列を描画します。
SetStartArrowCap	( Single )	Boolean型	始点の矢印型キャップスタイルを設定します。
	( Single , Single )	Boolean型	始点の矢印型キャップスタイルを幅、高さを指定して設定します。
	( Single , Single , Boolean )	Boolean型	始点の矢印型キャップスタイルを幅、高さ、矢印の塗りつぶし有無を指定して設定します。
SetEndArrowCap	( Single )	Boolean型	終点の矢印型キャップスタイルを設定します。
	( Single , Single )	Boolean型	終点の矢印型キャップスタイルを幅、高さを指定して設定します。
	( Single , Single , Boolean )	Boolean型	終点の矢印型キャップスタイルを幅、高さ、矢印の塗りつぶし有無を指定して設定します。
PrnLine	( PrintPageEventArgs , Single , Single , Single , Single , Color , [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	線を描画します。
PrnLines	( PrintPageEventArgs , PointF() , Color , [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	連続直線を描画します。
PrnBezier	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Single , Single , Color , [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	ベジエ スプラインを描画します。
PrnBeziers	( PrintPageEventArgs , PointF() , Color , [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	ベジエ スプラインを描画します。
PrnCurve	( PrintPageEventArgs , PointF() , Color , [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	カーディナル スプラインを描画します。
PrnClosedCurve	( PrintPageEventArgs , PointF() , Color , [Single] , [DashStyle] )	Boolean型	閉じたカーディナル スプラインを描画します。
PrnClosedCurveFull	( PrintPageEventArgs , PointF() , Color )	Boolean型	閉じたカーディナル スプラインを描画し塗りつぶします。
PrnBox	( PrintPageEventArgs , Single , Single , Single , Single , Color , [Single] , [DashStyle] )	Boolean型	長方形を描画します。
PrnRoundBox	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Color )	Boolean型	角の丸い長方形を描画し単一色で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , String )	Boolean型	角の丸い長方形を描画し指定画像で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Color , Color )	Boolean型	角の丸い長方形を描画しグラデーションで塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , HatchStyle , Color , Color )	Boolean型	角の丸い長方形を描画しハッチスタイルで塗りつぶします。
PrnBoxFull	( PrintPageEventArgs , Single , Single , Single , Single , Color )	Boolean型	長方形を描画し単一色で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , String )	Boolean型	長方形を描画し指定画像で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , Color , Color )	Boolean型	長方形を描画しグラデーションで塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , HatchStyle , Color , Color )	Boolean型	長方形を描画しハッチスタイルで塗りつぶします。
PrnCircle	( PrintPageEventArgs , Single , Single , Single , Single , Color , [Single] , [DashStyle] )	Boolean型	楕円を描画します。
PrnCircleFill	( PrintPageEventArgs , Single , Single , Single , Single , Color )	Boolean型	楕円を描画して単一色で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , String )	Boolean型	楕円を描画して指定画像で塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , Color , Color )	Boolean型	楕円を描画してグラデーションで塗りつぶします。
	( PrintPageEventArgs , Single , Single , Single , Single , HatchStyle , Color , Color )	Boolean型	楕円を描画してハッチスタイルで塗りつぶします。
PrnArc	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Color, [Single] , [DashStyle] , [ArrowCapStyle] )	Boolean型	楕円の弧を描画します。
PrnPie	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Color , [Single] , [DashStyle] )	Boolean型	扇形を描画します。
PrnPolygon	( PrintPageEventArgs , PointF() , Color , [Single] , [DashStyle] )	Boolean型	多角形を描画します。
PrnPolygonFill	( PrintPageEventArgs , PointF() , Color )	Boolean型	多角形を描画し単一色で塗りつぶします。
	( PrintPageEventArgs , PointF() , String )	Boolean型	多角形を描画し指定画像で塗りつぶします。
	( PrintPageEventArgs , PointF() , Color , Color )	Boolean型	多角形を描画してグラデーションで塗りつぶします。
	( PrintPageEventArgs , PointF() , HatchStyle , Color , Color )	Boolean型	多角形を描画しハッチスタイルで塗りつぶします。
PrnPsetGDI	( PrintPageEventArgs , Single , Single , Integer )	Boolean型	点を描画します。(GDIでの描画)
GetArcDirectionGDI	( PrintPageEventArgs )	NSDPPS.AD型	PrnChordGDIで描画する方向を取得します。
SetArcDirectionGDI	( PrintPageEventArgs , NSDPPS.AD )	Boolean型	PrnChordGDIで描画する方向を設定します。
PrnChordGDI	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Single , Single , [Integer] , [Integer] , [PenStyle] )	Boolean型	弓形を描画します。(GDIでの描画)
PrnDrawImage	( PrintPageEventArgs , Single , Single , String , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	画像ファイルを読み込んで描画します。
	( PrintPageEventArgs , Single , Single , Image , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	描画するイメージを渡して描画します。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , String , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	画像ファイルを読み込んでトリミングして描画します。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Image , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	描画するイメージをトリミングして描画します。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Single , Single , String , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	画像ファイルを読み込んでトリミングして指定範囲に描画します。
	( PrintPageEventArgs , Single , Single , Single , Single , Single , Single , Single , Single , Image , [Boolean] , [NSDLoadPictureStretch] , [NSDColorTone] , [ImageAttributes] )	Boolean型	描画するイメージをトリミングして指定範囲に描画します。
ChangePixcel	( PrintPageEventArgs , Boolean , Single )	Integer型	座標をPixcelに変換します。
PrnInvert	( PrintPageEventArgs , Single , Single , Single , Single )	Boolean型	指定範囲の色を反転します。
GetGradationColor	( NSDBorderKind, Color, Color )	Boolean型	グラデーションカラーを取得します。
GetSelectAreaGradationColor	( NSDBorderKind, Color, Color )	Boolean型	グラデーション範囲を指定する場合のグラデーションカラーを取得します。
SetGradationColor	( NSDBorderKind, Color, Color )	Boolean型	グラデーションカラーを設定します。
GetSelectAreaGradationColor	( NSDBorderKind, Color, Color )	Boolean型	グラデーション範囲を指定する場合のグラデーションカラーを設定します。
GetGradationArea	( NSDBorderKind, Single, Single, Single, Single )	Boolean型	グラデーションの範囲を取得します。
SetGradationArea	( NSDBorderKind, Single, Single, Single, Single )	Boolean型	グラデーションの範囲を設定します。

●定数の一覧

名前：ArrowCapStyle　(矢印キャップスタイル。)
名前	内容
NoStyle	指定なし。
StartOnly	始点のみ設定。
EndOnly	終点のみ設定。
StartAndEnd	始点、終点を設定。

　

名前：AD　(PrnChordGDIで描画する方向。)
名前	内容
AD_COUNTERCLOCKWISE	反時計回り。
AD_CLOCKWISE	時計回り。

　

名前：PenStyle　(ペンスタイル。)
名前	内容
PS_SOLID	実線。
PS_DASH	破線。
PS_DOT	点線。
PS_DASHDOT	一点鎖線。
PS_DASHDOTDOT	二点鎖線。
PS_NULL	不可視。
PS_INSIDEFRAME	実線。

　

名前：NSDBackgroundStyle　(背景スタイル。)
名前	内容
Normal	通常処理。
Gradation	グラデーション処理。
Gradation_SelectArea	指定範囲のグラデーション処理。

　

名前：NSDBorderKind　(縁の種類。)
名前	内容
Origin	元。
Border	縁。
Max	最大値(NSDBorderKindのMAX値)。

　

名前：NSDColorTone　(色調。)
名前	内容
Normal	通常。
Reversal	反転。
Translucent	半透明。
Sepia	セピア。
GrayScale	グレースケール。
Red	赤。
Green	緑。
Bule	青。
WhiteBlack	白黒。

　

名前：NSDLoadPictureStretch　(画像読み込み時のサイズ指定。)
名前	内容
SizeNoChange	サイズの変更は行わない。
ImageSizeChange_VH_Ration	画像サイズをビットマップのサイズに合わせます(比率計算有り)。
ImageSizeChange_No_Ration	画像サイズをビットマップのサイズに合わせます(比率計算なし)。

●NSDPPSコンストラクタの説明

構文：Public Sub New()

使用法：Dim PPS As New NSDPPS 引数：なし。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

●NSDPPSプロパティの説明

名前：BackgroundStyle

構文：Public Property BackgroundStyle( BorderKind ) As NSDBackgroundStyle 機能：背景スタイルの設定を行います。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Set値：背景スタイル(NSDBackgroundStyle)を設定します。 Get値：背景スタイル(NSDBackgroundStyle)を返します。 影響を受けるメソッド： 　 名前 PrnArc PrnBezier PrnBeziers PrnBox PrnBoxFull PrnCircle PrnCircleFill PrnClosedCurve PrnClosedCurveFull PrnCurve PrnDrawBorderText PrnDrawText PrnLine PrnLines PrnPie PrnPolygon PrnPolygonFill PrnRoundBox ※但し、背景に画像ファイルまたはハッシュスタイルを使用する場合は影響を受けない場合があります。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 背景スタイルを変更します。 PPS.BackgroundStyle(NSDPPS.NSDBorderKind.Origin) = NSDPPS.NSDBackgroundStyle.Gradation ' 角度を使用します。 PPS.UseGradationAngle(NSDPPS.NSDBorderKind.Origin) = True ' 90度を指定します。 PPS.GradationAngle(NSDPPS.NSDBorderKind.Origin) = 90 ' 指定枠の中に文字列を描画します。 PPS.PrnDrawText( e , Str_Msg, 300, 300, 0, 0, Color.Black ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：UseGradationAngle

構文：Public Property UseGradationAngle( BorderKind ) As Boolean 機能：グラデーションを使用する場合に、角度の反映有無を指定します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Set値：True=角度を反映させます。 False：角度を反映させません。 Get値：角度の反映有無を返します。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 背景スタイルを変更します。 PPS.BackgroundStyle(NSDPPS.NSDBorderKind.Origin) = NSDPPS.NSDBackgroundStyle.Gradation ' 角度を使用します。 PPS.UseGradationAngle(NSDPPS.NSDBorderKind.Origin) = True ' 90度を指定します。 PPS.GradationAngle(NSDPPS.NSDBorderKind.Origin) = 90 ' 指定枠の中に文字列を描画します。 PPS.PrnDrawText( e , Str_Msg, 300, 300, 0, 0, Color.Black ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：GradationAngle

構文：Public Property GradationAngle( BorderKind ) As Single 機能：グラデーションの角度を設定します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Set値：グラデーションの角度を設定します。 Get値：グラデーションの角度を返します。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 背景スタイルを変更します。 PPS.BackgroundStyle(NSDPPS.NSDBorderKind.Origin) = NSDPPS.NSDBackgroundStyle.Gradation ' 角度を使用します。 PPS.UseGradationAngle(NSDPPS.NSDBorderKind.Origin) = True ' 90度を指定します。 PPS.GradationAngle(NSDPPS.NSDBorderKind.Origin) = 90 ' 指定枠の中に文字列を描画します。 PPS.PrnDrawText( e , Str_Msg, 300, 300, 0, 0, Color.Black ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

●NSDPPSメソッドの説明

名前：Dispose

構文：Public Sub Dispose() ※終了時に必ず呼び出します。 (内部でCls_Dispose()を呼び出しています。終了処理でCls_Dispose()を呼び出している場合は、呼び出す必要はありません。) 機能：NSDPPSクラスのオブジェクトで使用されている全てのリソースを解放します。 引数：なし。 戻り値：なし。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：Cls_Dispose

構文：Public Sub Cls_Dispose() ※終了時に必ず呼び出します。 (終了処理でDispose()を呼び出している場合は、呼び出す必要はありません。) 機能：NSDPPSクラスのオブジェクトで使用されている全てのリソースを解放します。 引数：なし。 戻り値：なし。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Cls_Dispose() Finally End Try End Sub End Class

　

名前：SetPageUnit

構文：Public Function SetPageUnit( e , GraphicsUnit ) As Boolean 機能：長さの単位を指定します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 GraphicsUnit System.Drawing.GraphicsUnit GraphicsUnit値(Worldを除く)を渡します。 戻り値：なし。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 0, 0, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetFont

機能：描画するフォントをセットします。 �@描画するフォントをフォント名、サイズ、太字、斜体、取り消し線、下線を指定してセットします。 構文：Public Function SetFont( FontName , FontSize , [Bold] , [Itaric] , [Strikeout] , [Underline] ) As Boolean 引数： 名前 型 説明 FontName String フォントの名前を渡します。 FontSize Single フォントサイズを渡します。 [Bold] Boolean 太い文字の指定を渡します。(既定値：False) ※True：太字 False：太字でない [Italic] Boolean 斜体の指定を渡します。(既定値：False) ※True：斜体 False：斜体でない [Strikeout] Boolean 取り消し線の指定を渡します。(既定値：False) ※True：取り消し線あり False：取り消し線なし [Underline] Boolean 下線の指定を渡します。(既定値：False) ※True：下線あり False：下線なし 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 0, 0, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A描画するフォントをセットします。 構文：Public Function SetFont( Font ) As Boolean 引数： 　 名前 型 説明 Font System.Drawing.Font 描画するフォントを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Dim f As New Font("ＭＳ ゴシック", 12) Try ' 描画するフォントをセットします。 PPS.SetFont(f) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 0, 0, Color.Black) Finally ' フォントを解放します。 f.Dispose() End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnText

機能：文字列を描画します。 �@文字列、位置、色を指定して文字を描画します。 構文：Public Function PrnText( e , Text , X , Y , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 0, 0, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A文字列、位置、色、縦書きか横書きかを指定して文字を描画します。 構文：Public Function PrnText( e , Text , X , Y , Color, Vertical ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 10, 10, Color.Black, True) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B文字列、位置、色、縦書きか横書き、角度を指定して文字を描画します。 構文：Public Function PrnText( e , Text , X , Y , Color, Vertical, Angle ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 10, 10, Color.Black, True, 45) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C文字列、位置、色、縦書きか横書き、角度、レンダリング品質を指定して文字を描画します。 構文：Public Function PrnText( e , Text , X , Y , Color, Vertical, Angle, TextRenderingHint ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 文字列を描画します。 PPS.PrnText(e , "あいうえお", 10, 10, Color.Black, True, _ 45, System.Drawing.Text.TextRenderingHint.SingleBitPerPixel) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnDrawText

機能：指定枠の中に文字列を描画します。 �@文字列、位置、色を指定して文字を描画します。 構文：Public Function PrnDrawText( e , Text , X , Y , Width , Height , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 指定枠の中に文字列を描画します。 Dim Str_Msg As String = "あいうえお" & ControlChars.CrLf & "かきくけこ" PPS.PrnDrawText(e , Str_Msg, 10, 10, 0, 0, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A文字列、位置、色、縦書きか横書きかを指定して文字を描画します。 構文：Public Function PrnDrawText( e, Text, X , Y , Width , Height , Color, Vertical ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 指定枠の中に文字列を描画します。 Dim Str_Msg As String = "あいうえお" & ControlChars.CrLf & "かきくけこ" PPS.PrnDrawText(e , Str_Msg, 10, 10, 0, 0, Color.Black, False) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B文字列、位置、色、縦書きか横書き、角度を指定して文字を描画します。 構文：Public Function PrnDrawText( e , Text , X , Y , Width , Height , Color, Vertical, Angle ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 指定枠の中に文字列を描画します。 Dim Str_Msg As String = "あいうえお" & ControlChars.CrLf & "かきくけこ" PPS.PrnDrawText(e , Str_Msg, 100, 100, 0, 0, Color.Black, False, 45) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C文字列、位置、色、縦書きか横書き、角度、レンダリング品質を指定して文字を描画します。 構文：Public Function PrnDrawText( e , Text , X , Y , Width , Height , Color, Vertical, Angle, TextRenderingHint ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 描画するフォントをセットします。 PPS.SetFont("ＭＳ ゴシック", 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 指定枠の中に文字列を描画します。 Dim Str_Msg As String = "あいうえお" & ControlChars.CrLf & "かきくけこ" PPS.PrnDrawText(e , Str_Msg, 100, 100, 0, 0, Color.Black, False, _ 45, System.Drawing.Text.TextRenderingHint.SingleBitPerPixel) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �D文字列、位置、縦書きか横書き、角度、レンダリング品質、描画に使用する画像ファイルを指定して文字を描画します。 構文：Public Function PrnDrawText( e , Text , X , Y , Width , Height , Vertical , Angle , TextRenderingHint , FileName ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 FileName String 描画に使用する画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 指定枠の中に文字列を描画します。 PPS.PrnDrawText( e , Str_Msg, 300, 300, 0, 0, False, 45, _ System.Drawing.Text.TextRenderingHint.SingleBitPerPixel, _ "C:\Data\Test.jpg" ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnDrawBorderText

機能：指定枠の中に、縁取り文字を描画します。 �@文字列、位置、色を指定して縁取り文字を描画します。 構文：Public Function PrnDrawBorderText( e , Text , X , Y , Width , Height , Color , BorderColor , BorderWidth ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 BorderColor System.Drawing.Color 描画する縁の色を渡します。 BorderWidth Single 描画する縁の幅を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 指定枠の中に文字列を描画します。 PPS.PrnDrawBorderText( e, "あいうえお", 10, 10, _ 0, 0, Color.Red, Color.Green, 0.1 ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A文字列、位置、色、縦書きか横書きかを指定して縁取り文字を描画します。 構文：Public Function PrnDrawBorderText( e , Text , X , Y , Width , Height , Color , BorderColor , BorderWidth , Vertical ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 BorderColor System.Drawing.Color 描画する縁の色を渡します。 BorderWidth Single 描画する縁の幅を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 文字列を描画します。 PPS.PrnDrawBorderText( e , "あいうえお", 10, 10, _ 0, 0, Color.Red, Color.Green, 0.1, False ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B文字列、位置、色、縦書きか横書き、角度を指定して縁取り文字を描画します。 構文：Public Function PrnDrawBorderText( e , Text , X , Y , Width , Height , Color , BorderColor , BorderWidth , Vertical , Angle ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 BorderColor System.Drawing.Color 描画する縁の色を渡します。 BorderWidth Single 描画する縁の幅を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 文字列を描画します。 PPS.PrnDrawBorderText( e , "あいうえお", 10, 10, 0, 0, _ Color.Red, Color.Green, 0.1, False, 45 ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C文字列、位置、色、縦書きか横書き、角度、レンダリング品質を指定して縁取り文字を描画します。 構文：Public Function PrnDrawBorderText( e , Text , X , Y , Width , Height , Color , BorderColor , BorderWidth , Vertical , Angle , TextRenderingHint ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 BorderColor System.Drawing.Color 描画する縁の色を渡します。 BorderWidth Single 描画する縁の幅を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 文字列を描画します。 PPS.PrintDrawBorderText( e , "あいうえお", 10, 10, 0, 0, _ Color.Red, Color.Green, 0.1, False, 45, _ Drawing.Text.TextRenderingHint.ClearTypeGridFit ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �D文字列、位置、色、縦書きか横書き、角度、レンダリング品質、描画する画像ファイル名を指定して縁取り文字を描画します。 構文：Public Function PrnDrawBorderText( e , Text , X , Y , Width , Height , Color , BorderColor , BorderWidth , Vertical , Angle , TextRenderingHint , FileName1 , FileName2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Color System.Drawing.Color 描画する色を渡します。 BorderColor System.Drawing.Color 描画する縁の色を渡します。 BorderWidth Single 描画する縁の幅を渡します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 FileName1 String 描画に使用する画像ファイルのフルパス名を渡します。 FileName2 String 縁描画に使用する画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 文字列を描画します。 PPS.PrintDrawBorderText( e , "あいうえお", 10, 10, 0, 0, _ Color.Red, Color.Green, 0.1, False, 45, _ Drawing.Text.TextRenderingHint.ClearTypeGridFit, _ "C:\Data\Test.jpg", "C:\Data\Test2.jpg" ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnDrawClippingText

構文：Public Function PrnDrawClippingText( e , Text , X , Y , Width , Height , Vertical , Angle , TextRenderingHint , FileName , [ColorToneStyle] , [Ia] ) As Boolean 機能：指定枠の中に描画に使用する画像ファイルを指定し、くり抜き文字列を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 Text String 描画する文字列を渡します。 ※複数行の場合は、ControlChars.CrLfで区切ります。 例："あいうえお" & ControlChars.CrLf & "かきくけこ" X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 ※ 0 = 自動計算します。 Height Single 描画する高さを渡します。 ※ 0 = 自動計算します。 Vertical Boolean 縦書き、横書きを渡します。 True：縦書き False：横書き Angle Single 描画する角度を渡します。 TextRenderingHint System.Drawing.Text.TextRenderingHint テキストのレンダリングの品質を渡します。 FileName String 描画に使用する画像ファイルのフルパス名を渡します。 [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：なし。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 描画するフォントをセットします。 PPS.SetFont( "ＭＳ ゴシック" , 12 ) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim Str_Msg As String = "文字描画サンプル2" Str_Msg &= ControlChars.CrLf & "あいうえお" Str_Msg &= ControlChars.CrLf & "かきくけこ" Str_Msg &= ControlChars.CrLf & "さしすせそ" ' 文字列を描画。 PPS.PrnDrawClippingText( e , "あいうえお", 10, 10, _ 0, 0, False, 50, Drawing.Text.TextRenderingHint.SystemDefault, _ "C:\Data\Test.jpg", NSDPPS.NSDColorTone.Sepia ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetStartArrowCap

機能：始点の矢印キャップを設定します。 �@始点の矢印キャップを設定します。 構文：Public Function SetStartArrowCap( WidthAndHeight ) As Boolean 引数： 　 名前 型 説明 WidthAndHeight Single 矢印のサイズを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap(5) ' 終点の矢印をセットします。 SetEndArrowCap(5) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A始点の矢印型キャップスタイルを幅、高さを指定して設定します。 構文：Public Function SetStartArrowCap( Width , Height ) As Boolean 引数： 　 名前 型 説明 Width Single 矢印の幅を渡します。 Height Single 矢印の高さを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap( 5, 5) ' 終点の矢印をセットします。 SetEndArrowCap( 5, 5) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B始点の矢印型キャップスタイルを幅、高さ、矢印の塗りつぶし有無を指定して設定します。 構文：Public Function SetStartArrowCap( Width , Height , isFilled ) As Boolean 引数： 　 名前 型 説明 Width Single 矢印の幅を渡します。 Height Single 矢印の高さを渡します。 isFilled Boolean True ：矢印のキャップを塗りつぶします。 False：矢印のキャップを塗りつぶさない。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap( 5, 5, True) ' 終点の矢印をセットします。 SetEndArrowCap( 5, 5, True) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetEndArrowCap

機能：終点の矢印型キャップスタイルを設定します。 �@終点の矢印型キャップスタイルを設定します。 構文：Public Function SetEndArrowCap( WidthAndHeight ) As Boolean 引数： 　 名前 型 説明 WidthAndHeight Single 矢印のサイズを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap(5) ' 終点の矢印をセットします。 SetEndArrowCap(5) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A終点の矢印型キャップスタイルを幅、高さを指定して設定します。 構文：Public Function SetEndArrowCap( Width , Height ) As Boolean 引数： 　 名前 型 説明 Width Single 矢印の幅を渡します。 Height Single 矢印の高さを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap( 5, 5) ' 終点の矢印をセットします。 SetEndArrowCap( 5, 5) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B終点の矢印型キャップスタイルを幅、高さ、矢印の塗りつぶし有無を指定して設定します。 構文：Public Function SetEndArrowCap( Width , Height , isFilled ) As Boolean 引数： 　 名前 型 説明 Width Single 矢印の幅を渡します。 Height Single 矢印の高さを渡します。 isFilled Boolean True ：矢印のキャップを塗りつぶします。 False：矢印のキャップを塗りつぶさない。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 始点の矢印をセットします。 SetStartArrowCap( 5, 5, True) ' 終点の矢印をセットします。 SetEndArrowCap( 5, 5, True) ' 線を描画します。 PPS.PrnLine(e, 0, 340, 100, 340, Color.Black, 1, , ArrowCapStyle.StartAndEnd) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnLine

構文：Public Function PrnLine( e , X1 , Y1 , X2 , Y2 , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：線を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X1 Single 最初の点のX座標を渡します。 Y1 Single 最初の点のY座標を渡します。 X2 Single 2番目の点のX座標を渡します。 Y2 Single 2番目の点のY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' ----------------------------- ' 線の描画サンプル。 ' ----------------------------- For Int_Loop As Integer = 0 To 7 Dim Sng_X As Single = 0 Dim Sng_Y As Single = 140 + (10 * Int_Loop) Dim Sng_X2 As Single = 100 Dim Sng_Y2 As Single = Sng_Y ' 色を取得します。 Dim C As System.Drawing.Color Select Case Int_Loop Mod 8 Case 0 C = Color.Black Case 1 C = Color.Red Case 2 C = Color.Blue Case 3 C = Color.Green Case 4 C = Color.Cyan Case 5 C = Color.Magenta Case 6 C = Color.Yellow Case Else C = Color.White End Select ' 線を描画します。 PPS.PrnLine(e, Sng_X, Sng_Y, Sng_X2, Sng_Y2, C, 0.1) Next Int_Loop Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnLines

構文：Public Function PrnLines( e , PointF() , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：連続直線を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 接続する複数の点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' ----------------------------- ' 線の描画サンプル2。 ' ----------------------------- Dim LinePoint() As PointF ReDim LinePoint(0 to 6) LinePoint(0).X = 0 : LinePoint(0).Y = 40 LinePoint(1).X = 20 : LinePoint(1).Y = 60 LinePoint(2).X = 50 : LinePoint(2).Y = 50 LinePoint(3).X = 80 : LinePoint(3).Y = 70 LinePoint(4).X = 90 : LinePoint(4).Y = 80 LinePoint(5).X = 110 : LinePoint(5).Y = 60 LinePoint(6).X = 130 : LinePoint(6).Y = 60 ' 連続直線を描画します。 PPS.PrnLines( e, LinePoint, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnBezier

構文：Public Function PrnBezier( e , X1 , Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4 , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：ベジエ スプラインを描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X1 Single 曲線の開始点のX座標を渡します。 Y1 Single 曲線の開始点のY座標を渡します。 X2 Single 曲線の最初の制御点のX座標を渡します。 Y2 Single 曲線の最初の制御点のY座標を渡します。 X3 Single 曲線の2番目の制御点のX座標を渡します。 Y3 Single 曲線の2番目の制御点のY座標を渡します。 X4 Single 曲線の終了点のX座標を渡します。 Y4 Single 曲線の終了点のY座標を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' ベジエ スプラインを描画します。 PPS.PrnBezier( e, 0, 120, 40, 140, 100, 160, 200, 130, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnBeziers

構文：Public Function PrnBeziers( e , PointF() , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：ベジエ スプラインを描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 曲線を決定する複数の点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 6) LinePoint(0).X = 0 : LinePoint(0).Y = 120 LinePoint(1).X = 20 : LinePoint(1).Y = 140 LinePoint(2).X = 50 : LinePoint(2).Y = 160 LinePoint(3).X = 80 : LinePoint(3).Y = 130 LinePoint(4).X = 120 : LinePoint(4).Y = 160 LinePoint(5).X = 150 : LinePoint(5).Y = 100 LinePoint(6).X = 200 : LinePoint(6).Y = 120 ' ベジエ スプラインを描画します。 PPS.PrnBeziers( e, LinePoint, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnCurve

構文：Public Function PrnCurve( e , PointF() , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：カーディナル スプラインを描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 曲線を決定する複数の点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 6) LinePoint(0).X = 30 : LinePoint(0).Y = 120 LinePoint(1).X = 70 : LinePoint(1).Y = 140 LinePoint(2).X = 100 : LinePoint(2).Y = 160 LinePoint(3).X = 130 : LinePoint(3).Y = 130 LinePoint(4).X = 170 : LinePoint(4).Y = 160 LinePoint(5).X = 200 : LinePoint(5).Y = 100 LinePoint(6).X = 250 : LinePoint(6).Y = 120 ' カーディナル スプラインを描画します。 PPS.PrnCurve( e, LinePoint, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnClosedCurve

構文：Public Function PrnClosedCurve( e , PointF() , Color , [LineWidth] , [DashStyle] ) As Boolean 機能：閉じたカーディナル スプラインを描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 曲線を決定する複数の点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 6) LinePoint(0).X = 30 : LinePoint(0).Y = 120 LinePoint(1).X = 70 : LinePoint(1).Y = 140 LinePoint(2).X = 100 : LinePoint(2).Y = 160 LinePoint(3).X = 130 : LinePoint(3).Y = 130 LinePoint(4).X = 170 : LinePoint(4).Y = 160 LinePoint(5).X = 200 : LinePoint(5).Y = 100 LinePoint(6).X = 250 : LinePoint(6).Y = 120 ' 閉じたカーディナル スプラインを描画します。 PPS.PrnClosedCurve( e, LinePoint, Color.Black) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnClosedCurveFull

構文：Public Function PrnClosedCurveFull( e , PointF() , Color ) As Boolean 機能：閉じたカーディナル スプラインを描画し塗りつぶします。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 曲線を決定する複数の点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Dim LinePoint() As PointF ReDim LinePoint(0 to 6) LinePoint(0).X = 30 LinePoint(0).Y = 720 LinePoint(1).X = 70 LinePoint(1).Y = 740 LinePoint(2).X = 100 LinePoint(2).Y = 760 LinePoint(3).X = 130 LinePoint(3).Y = 730 LinePoint(4).X = 170 LinePoint(4).Y = 760 LinePoint(5).X = 200 LinePoint(5).Y = 700 LinePoint(6).X = 250 LinePoint(6).Y = 720 ' 閉じたカーディナル スプラインを描画し塗りつぶします。 PPS.PrnClosedCurveFull( e, LinePoint, Color.Blue ) : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnBox

構文：Public Function PrnBox( e , X , Y , Width , Height , Color , [LineWidth] , [DashStyle] ) As Boolean 機能：長方形を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim Sng_X As Single = 0 Dim Sng_Y As Single = 50 Dim Sng_CWidth As Single = 10 Dim Sng_CHeight As Single = 10 For Int_Loop As Integer = 0 To 15 ' 色を取得します。 Dim C As System.Drawing.Color Select Case Int_Loop Mod 8 Case 0 C = Color.Black Case 1 C = Color.Red Case 2 C = Color.Blue Case 3 C = Color.Green Case 4 C = Color.Cyan Case 5 C = Color.Magenta Case 6 C = Color.Yellow Case Else C = Color.White End Select ' 長方形を描画します。 PPS.PrnBox( e, Sng_X, Sng_Y, Sng_CWidth, Sng_CHeight, C, 0.2) Sng_X += 5 Sng_CWidth += 2: Sng_CHeight += 2 Next Int_Loop Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnRoundBox

機能：角の丸い長方形を描画します。 �@角の丸い長方形を描画し単一色で塗りつぶします。 構文：Public Function PrnRoundBox( e , X , Y , Width , Height , WidthEllipse , HeightEllipse , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 WidthEllipse Single 角の丸みを表す楕円の幅を渡します。 HeightEllipse Single 角の丸みを表す楕円の高さを渡します。 Color System.Drawing.Color 塗りつぶす色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 角の丸い長方形を描画し単一色で塗りつぶします。 PPS.PrnRoundBox( e, 10, 10, 20, 20, 10, 10, Color.Red) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A角の丸い長方形を描画し指定画像で塗りつぶします。 構文：Public Function PrnRoundBox( e , X , Y , Width , Height , WidthEllipse , HeightEllipse , ImageFile ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 WidthEllipse Single 角の丸みを表す楕円の幅を渡します。 HeightEllipse Single 角の丸みを表す楕円の高さを渡します。 ImageFile String 塗りつぶす画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 角の丸い長方形を描画し指定画像で塗りつぶします。 PPS.PrnRoundBox( e, 10, 10, 20, 20, 10, 10, "C:\Data\Sample.jpg") Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B角の丸い長方形を描画しグラデーションで塗りつぶします。 構文：Public Function PrnRoundBox( e , X , Y , Width , Height , WidthEllipse , HeightEllipse , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 WidthEllipse Single 角の丸みを表す楕円の幅を渡します。 HeightEllipse Single 角の丸みを表す楕円の高さを渡します。 Color1 System.Drawing.Color 塗りつぶすグラデーションの最初の色を渡します。 Color2 System.Drawing.Color 塗りつぶすグラデーションの最後の色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 角の丸い長方形を描画しグラデーションで塗りつぶします。 PPS.PrnRoundBox( e, 10, 10, 20, 20, 10, 10, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C角の丸い長方形を描画しハッチスタイルで塗りつぶします。 構文：Public Function PrnRoundBox( e , X , Y , Width , Height , WidthEllipse , HeightEllipse , HatchStyle , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 WidthEllipse Single 角の丸みを表す楕円の幅を渡します。 HeightEllipse Single 角の丸みを表す楕円の高さを渡します。 HatchStyle System.Drawing.Drawing2D.HatchStyle ハッチスタイルを渡します。 Color1 System.Drawing.Color 前景色を渡します。 Color2 System.Drawing.Color 背景色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 角の丸い長方形を描画しハッチスタイルで塗りつぶします。 PPS.PrnRoundBox( e, 10, 10, 20, 20, 10, 10, Drawing2D.HatchStyle.Cross, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnBoxFull

機能：長方形を描画し塗りつぶします。 �@長方形を描画し単一色で塗りつぶします。 構文：Public Function PrnBoxFull( e , X , Y , Width , Height , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 Color System.Drawing.Color 塗りつぶす色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 長方形を描画し単一色で塗りつぶします。 PPS.PrnBoxFull( e, 10, 10, 20, 20, Color.Red) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A長方形を描画し指定画像で塗りつぶします。 構文：Public Function PrnBoxFull( e , X , Y , Width , Height , ImageFile ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 ImageFile String 塗りつぶす画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 長方形を描画し指定画像で塗りつぶします。 PPS.PrnBoxFull( e, 10, 10, 20, 20, "C:\Data\Sample.jpg") Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B長方形を描画しグラデーションで塗りつぶします。 構文：Public Function PrnBoxFull( e , X , Y , Width , Height , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 Color1 System.Drawing.Color 塗りつぶすグラデーションの最初の色を渡します。 Color2 System.Drawing.Color 塗りつぶすグラデーションの最後の色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 長方形を描画しグラデーションで塗りつぶします。 PPS.PrnBoxFull( e, 10, 10, 20, 20, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C長方形を描画しハッチスタイルで塗りつぶします。 構文：Public Function PrnBoxFull( e , X , Y , Width , Height , HatchStyle , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 描画する長方形の幅を渡します。 Height Single 描画する長方形の高さを渡します。 HatchStyle System.Drawing.Drawing2D.HatchStyle ハッチスタイルを渡します。 Color1 System.Drawing.Color 前景色を渡します。 Color2 System.Drawing.Color 背景色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 長方形を描画しハッチスタイルで塗りつぶします。 PPS.PrnBoxFull( e, 10, 10, 20, 20, Drawing2D.HatchStyle.Cross, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnCircle

構文：Public Function PrnCircle( e , X , Y , CircleWidth , CircleHeight , Color , [LineWidth] , [DashStyle] ) As Boolean 機能：楕円を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する外接する四角形の左上X座標を渡します。 Y Single 楕円を定義する外接する四角形の左上Y座標を渡します。 CircleWidth Single 楕円を定義する外接する四角形の幅を渡します。 CircleHeight Single 楕円を定義する外接する四角形の高さを渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) For Int_Loop As Integer = 0 To 31 Dim Sng_X As Single = Int_Loop Dim Sng_Y As Single = 39 Dim Sng_CWidth As Single = Int_Loop + 1 Dim Sng_CHeight As Single = Sng_CWidth ' 色を取得します。 Dim C As System.Drawing.Color Select Case Int_Loop Mod 8 Case 0 C = Color.Black Case 1 C = Color.Red Case 2 C = Color.Blue Case 3 C = Color.Green Case 4 C = Color.Cyan Case 5 C = Color.Magenta Case 6 C = Color.Yellow Case Else C = Color.White End Select ' 楕円を描画します。 PPS.PrnCircle(e, Sng_X, Sng_Y, Sng_CWidth, Sng_CHeight, C, 0.1) Next Int_Loop Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnCircleFill

機能：楕円を描画し塗りつぶします。 �@楕円を描画し単一色で塗りつぶします。 構文：Public Function PrnCircleFill( e , X , Y , CircleWidth , CircleHeight , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する外接する四角形の左上X座標を渡します。 Y Single 楕円を定義する外接する四角形の左上Y座標を渡します。 CircleWidth Single 楕円を定義する外接する四角形の幅を渡します。 CircleHeight Single 楕円を定義する外接する四角形の高さを渡します。 Color System.Drawing.Color 塗りつぶす色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 楕円を描画して単一色で塗りつぶします。 PPS.PrnCircleFill(e, 10, 10, 20, 20, Color.Red) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A楕円を描画し指定画像で塗りつぶします。 構文：Public Function PrnCircleFill( e , X , Y , CircleWidth , CircleHeight , ImageFile ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する外接する四角形の左上X座標を渡します。 Y Single 楕円を定義する外接する四角形の左上Y座標を渡します。 CircleWidth Single 楕円を定義する外接する四角形の幅を渡します。 CircleHeight Single 楕円を定義する外接する四角形の高さを渡します。 ImageFile String 塗りつぶす画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 楕円を描画して指定画像で塗りつぶします。 PPS.PrnCircleFill(e, 10, 10, 20, 20, "C:\Data\Sample.jpg") Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B楕円を描画しグラデーションで塗りつぶします。 構文：Public Function PrnCircleFill( e , X , Y , CircleWidth , CircleHeight , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する外接する四角形の左上X座標を渡します。 Y Single 楕円を定義する外接する四角形の左上Y座標を渡します。 CircleWidth Single 楕円を定義する外接する四角形の幅を渡します。 CircleHeight Single 楕円を定義する外接する四角形の高さを渡します。 Color1 System.Drawing.Color 塗りつぶすグラデーションの最初の色を渡します。 Color2 System.Drawing.Color 塗りつぶすグラデーションの最後の色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 楕円を描画してグラデーションで塗りつぶします。 PPS.PrnCircleFill(e, 10, 10, 20, 20, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C楕円を描画しハッチスタイルで塗りつぶします。 構文：Public Function PrnCircleFill( e , X , Y , CircleWidth , CircleHeight , HatchStyle , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する外接する四角形の左上X座標を渡します。 Y Single 楕円を定義する外接する四角形の左上Y座標を渡します。 CircleWidth Single 楕円を定義する外接する四角形の幅を渡します。 CircleHeight Single 楕円を定義する外接する四角形の高さを渡します。 HatchStyle System.Drawing.Drawing2D.HatchStyle ハッチスタイルを渡します。 Color1 System.Drawing.Color 前景色を渡します。 Color2 System.Drawing.Color 背景色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 楕円を描画してハッチスタイルで塗りつぶします。 PPS.PrnCircleFill(e, 10, 10, 20, 20, Drawing2D.HatchStyle.Cross, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnArc

構文：Public Function PrnArc( e , X , Y , ArcWidth , ArcHeight , StartAngle , sweepAngle , Color , [LineWidth] , [DashStyle] , [ArrowCapStyle] ) As Boolean 機能：楕円の弧を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 楕円を定義する四角形の左上のX座標を渡します。 Y Single 楕円を定義する四角形の左上のY座標を渡します。 ArcWidth Single 楕円を定義する四角形の幅を渡します。 ArcHeight Single 楕円を定義する四角形の高さを渡します。 StartAngle Single X軸から円弧の開始点まで、時計回りに測定した角度(度単位)を渡します。 sweepAngle Single StartAngleから円弧の終了点まで、時計回りに測定した角度(度単位)を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) [ArrowCapStyle] ArrowCapStyle 始点、終点の矢印を描画するかを渡します。 (既定値：ArrowCapStyle.NoStyle) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 楕円の弧を描画します。 PPS.PrnArc( e, 10, 10, 20, 20, 0, 270, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnPie

構文：Public Function PrnPie( e , X , Y , ArcWidth , ArcHeight , StartAngle , sweepAngle , Color , [LineWidth] , [DashStyle] ) As Boolean 機能：扇形を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 扇形の元となる楕円を定義する外接する四角形の左上隅のX座標を渡します。 Y Single 扇形の元となる楕円を定義する外接する四角形の左上隅のY座標を渡します。 ArcWidth Single 扇形の元となる楕円を定義する外接する四角形の幅を渡します。 ArcHeight Single 扇形の元となる楕円を定義する外接する四角形の高さを渡します。 StartAngle Single X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位)を渡します。 sweepAngle Single StartAngleから扇形の2番目の辺まで、時計回りに測定した角度(度単位)を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 扇形を描画します。 PPS.PrnPie( e, 10, 10, 20, 20, 0, 270, Color.Blue) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnPolygon

構文：Public Function PrnPolygon( e , PointF() , Color , [LineWidth] , [DashStyle] ) As Boolean 機能：多角形を描画します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 多角形の頂点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 描画する色を渡します。 [LineWidth] Single 描画する幅を渡します。 (既定値：1) [DashStyle] System.Drawing.Drawing2D.DashStyle 描画するスタイルを渡します。 (既定値：DashStyle.Solid) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 7) LinePoint(0).x = 101 : LinePoint(0).y = 36 LinePoint(1).x = 115.4 : LinePoint(1).y = 26.4 LinePoint(2).x = 125 : LinePoint(2).y = 12 LinePoint(3).x = 134.6 : LinePoint(3).y = 26.4 LinePoint(4).x = 149 : LinePoint(4).y = 36 LinePoint(5).x = 134.6 : LinePoint(5).y = 45.6 LinePoint(6).x = 125 : LinePoint(6).y = 60 LinePoint(7).x = 115.4 : LinePoint(7).y = 45.6 ' 多角形を描画します。 PPS.PrnPolygon( e, LinePoint, Color.Red) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnPolygonFill

機能：多角形を描画し塗りつぶします。 �@多角形を描画し単一色で塗りつぶします。 構文：Public Function PrnPolygonFill( e , PointF() , Color ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 多角形の頂点を表すPointF構造体の配列を渡します。 Color System.Drawing.Color 塗りつぶす色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 7) LinePoint(0).x = 101 : LinePoint(0).y = 36 LinePoint(1).x = 115.4 : LinePoint(1).y = 26.4 LinePoint(2).x = 125 : LinePoint(2).y = 12 LinePoint(3).x = 134.6 : LinePoint(3).y = 26.4 LinePoint(4).x = 149 : LinePoint(4).y = 36 LinePoint(5).x = 134.6 : LinePoint(5).y = 45.6 LinePoint(6).x = 125 : LinePoint(6).y = 60 LinePoint(7).x = 115.4 : LinePoint(7).y = 45.6 ' 多角形を描画し単一色で塗りつぶします。 PPS.PrnPolygonFill( e, LinePoint, Color.Red) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A多角形を描画し指定画像で塗りつぶします。 構文：Public Function PrnPolygonFill( e , PointF() , ImageFile ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 多角形の頂点を表すPointF構造体の配列を渡します。 ImageFile String 塗りつぶす画像ファイルのフルパス名を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 7) LinePoint(0).x = 101 : LinePoint(0).y = 36 LinePoint(1).x = 115.4 : LinePoint(1).y = 26.4 LinePoint(2).x = 125 : LinePoint(2).y = 12 LinePoint(3).x = 134.6 : LinePoint(3).y = 26.4 LinePoint(4).x = 149 : LinePoint(4).y = 36 LinePoint(5).x = 134.6 : LinePoint(5).y = 45.6 LinePoint(6).x = 125 : LinePoint(6).y = 60 LinePoint(7).x = 115.4 : LinePoint(7).y = 45.6 ' 多角形を描画し指定画像で塗りつぶします。 PPS.PrnPolygonFill( e, LinePoint, "C:\Data\Sample.jpg") Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B多角形を描画しグラデーションで塗りつぶします。 構文：Public Function PrnPolygonFill( e , PointF() , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 多角形の頂点を表すPointF構造体の配列を渡します。 Color1 System.Drawing.Color 塗りつぶすグラデーションの最初の色を渡します。 Color2 System.Drawing.Color 塗りつぶすグラデーションの最後の色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 7) LinePoint(0).x = 101 : LinePoint(0).y = 36 LinePoint(1).x = 115.4 : LinePoint(1).y = 26.4 LinePoint(2).x = 125 : LinePoint(2).y = 12 LinePoint(3).x = 134.6 : LinePoint(3).y = 26.4 LinePoint(4).x = 149 : LinePoint(4).y = 36 LinePoint(5).x = 134.6 : LinePoint(5).y = 45.6 LinePoint(6).x = 125 : LinePoint(6).y = 60 LinePoint(7).x = 115.4 : LinePoint(7).y = 45.6 ' 多角形を描画してグラデーションで塗りつぶします。 PPS.PrnPolygonFill( e, LinePoint, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C多角形を描画しハッチスタイルで塗りつぶします。 構文：Public Function PrnPolygonFill( e , PointF() , HatchStyle , Color1 , Color2 ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 PointF() Single 多角形の頂点を表すPointF構造体の配列を渡します。 HatchStyle System.Drawing.Drawing2D.HatchStyle ハッチスタイルを渡します。 Color1 System.Drawing.Color 前景色を渡します。 Color2 System.Drawing.Color 背景色を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) Dim LinePoint() As PointF ReDim LinePoint(0 to 7) LinePoint(0).x = 101 : LinePoint(0).y = 36 LinePoint(1).x = 115.4 : LinePoint(1).y = 26.4 LinePoint(2).x = 125 : LinePoint(2).y = 12 LinePoint(3).x = 134.6 : LinePoint(3).y = 26.4 LinePoint(4).x = 149 : LinePoint(4).y = 36 LinePoint(5).x = 134.6 : LinePoint(5).y = 45.6 LinePoint(6).x = 125 : LinePoint(6).y = 60 LinePoint(7).x = 115.4 : LinePoint(7).y = 45.6 ' 多角形を描画しハッチスタイルで塗りつぶします。 PPS.PrnPolygonFill( e, LinePoint, Drawing2D.HatchStyle.Cross, Color.Red, Color.Green) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnPsetGDI

構文：Public Function PrnPsetGDI( e , X , Y , Color ) As Boolean 機能：点を描画します。(GDIでの描画) ※デバイスによっては、描画されない場合があります。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 x Single X座標を渡します。 y Single Y座標を渡します。 Color Integer 描画する色を渡します。(RGB) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' ----------------------------- ' PSetサンプル。 ' ----------------------------- Dim Sng_X As Single = 0 Dim Sng_X2 As Single = 0 Dim Sng_X3 As Single = 0 Dim Sng_Y As Single = 0 Dim Sng_Y2 As Single = 0 ' 座標をPixcelに変換します。 Dim Int_StdX As Integer = 255 Dim Int_StdY As Integer = PPS.ChangePixcel(e, True, 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Pixel) For Int_Loop1 As Integer = 0 To 15 For Int_Loop2 As Integer = 0 To 15 For Int_Loop3 As Integer = 0 To 15 Dim Int_R As Integer = Int_Loop1 * 16 + Int_Loop2 Dim Int_G As Integer = Int_Loop2 * 16 + Int_Loop3 Dim Int_B As Integer = Int_Loop3 Select Case Sng_X Case Is <= 15 If Sng_X2 > Sng_X Then Sng_X3 = (Sng_X + Int_StdX) Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) Else Sng_X3 = Sng_X Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) End If Case Else Sng_X3 = Sng_X Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) End Select Sng_X = Sng_X + 1 If 255 = Sng_X Then Sng_Y += 1 Sng_X = 0 Sng_X2 += 1 End If Next Int_Loop3 If 16 = Sng_Y Then Exit For End If Next Int_Loop2 Next Int_Loop1 Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：GetArcDirectionGDI

構文：Public Function GetArcDirectionGDI( e ) As AD 機能：PrnChordGDIで描画する方向を取得します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 戻り値：AD 戻り値の説明： 描画する方向を返します。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' PrnChordGDIで描画する方向を設定します。 PPS.SetArcDirectionGDI( e, NSDPPS.AD.AD_CLOCKWISE) ' PrnChordGDIで描画する方向を取得します。 Dim PAD As NSDPPS.AD = PPS.GetArcDirectionGDI(e) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetArcDirectionGDI

構文：Public Function SetArcDirectionGDI( e , AD ) As Boolean 機能：PrnChordGDIで描画する方向を取得します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 AD AD 方向を渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' PrnChordGDIで描画する方向を設定します。 PPS.SetArcDirectionGDI( e, NSDPPS.AD.AD_CLOCKWISE) ' PrnChordGDIで描画する方向を取得します。 Dim PAD As NSDPPS.AD = PPS.GetArcDirectionGDI(e) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnChordGDI

構文：Public Function PrnChordGDI( e , X1 , Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4 , [Color] , [LineWidth] , [PenStyle] ) As Boolean 機能：弓形を描画します。（GDIでの描画） 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X1 Single 長方形の左上X座標を指定します。 Y1 Single 長方形の左上Y座標を指定します。 X2 Single 長方形の右下X座標を指定します。 Y2 Single 長方形の右下Y座標を指定します。 X3 Single 弧の始点を定義する放射直線の端点のX座標を指定します。 Y3 Single 弧の始点を定義する放射直線の端点のY座標を指定します。 X4 Single 弧の終点を定義する放射直線の端点のX座標を指定します。 Y4 Single 弧の終点を定義する放射直線の端点のY座標を指定します。 [Color] Integer 描画する色をRGB値で渡します。 (既定値：0) [LineWidth] Integer 描画する線の幅を渡します。 (既定値：1) [PenStyle] PenStyle 描画する線のスタイルを渡します。 (既定値：PenStyle.PS_SOLID) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' PrnChordGDIで描画する方向を設定します。 PPS.SetArcDirectionGDI( e, NSDPPS.AD.AD_CLOCKWISE) ' 弓形を描画します。 PPS.PrnChordGDI( e, 0, 136, 20, 156, 10, 136, 10, 156, RGB(255, 0, 0)) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnDrawImage

機能：画像を描画します。 �@画像ファイルを読み込んで描画します。 構文：Public Function PrnDrawImage( e , X , Y , FileName , [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 FileName String 画像ファイルのフルパス名を渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 画像ファイルを読み込んで描画します。 PPS.PrnDrawImage( e, 0, 0, "C:\Data\Test.jpg") : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �A描画するイメージを渡して描画します。 構文：Public Function PrnDrawImage( e , X , Y , Image , [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Image Image 描画するイメージを渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Using bp As New Bitmap(Str_FileName, True) : ' 描画するイメージを渡して描画します。 PPS.PrnDrawImage( e, 0, 0, bp) End Using : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �B画像ファイルを読み込んでトリミングして描画します。 構文：Public Function PrnDrawImage( e , X , Y , TrimmingX , TrimmingY , TrimmingWidth , TrimmingHeight , FileName , [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 TrimmingX Single 描画元のX座標を渡します。 TrimmingY Single 描画元のY座標を渡します。 TrimmingWidth Single 描画元の幅を渡します。 TrimmingHeight Single 描画元の高さを渡します。 FileName String 画像ファイルのフルパス名を渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 画像ファイルを読み込んでトリミングして描画します。 PPS.PrnDrawImage( e, 0, 0, 100, 100, 1024, 768, "C:\Data\Test.jpg") : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �C描画するイメージをトリミングして描画します。 構文：Public Function PrnDrawImage( e , X , Y , TrimmingX , TrimmingY , TrimmingWidth , TrimmingHeight , Image , [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 TrimmingX Single 描画元のX座標を渡します。 TrimmingY Single 描画元のY座標を渡します。 TrimmingWidth Single 描画元の幅を渡します。 TrimmingHeight Single 描画元の高さを渡します。 Image Image 描画するイメージを渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Using bp As New Bitmap(Str_FileName, True) : ' 描画するイメージをトリミングして描画します。 PPS.PrnDrawImage( e, 0, 0, 100, 100, 1024, 768, bp) End Using : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �D画像ファイルを読み込んでトリミングして指定範囲に描画します。 構文：Public Function PrnDrawImage( e , X , Y , Width , Height , TrimmingX , TrimmingY , TrimmingWidth , TrimmingHeight , FileName , [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 Height Single 描画する高さを渡します。 TrimmingX Single 描画元のX座標を渡します。 TrimmingY Single 描画元のY座標を渡します。 TrimmingWidth Single 描画元の幅を渡します。 TrimmingHeight Single 描画元の高さを渡します。 FileName String 画像ファイルのフルパス名を渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) ' 画像ファイルを読み込んでトリミングして指定範囲に描画します。 PPS.PrnDrawImage( e, 5, 5, 1024, 768, 100, 100, 1024, 768, "C:\Data\Test.jpg") : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class 　 �E描画するイメージをトリミングして指定範囲に描画します。 構文：Public Function PrnDrawImage( e , X , Y , Width , Height , TrimmingX , TrimmingY , TrimmingWidth , TrimmingHeight , Image, [useIcm] , [Stretch] , [ColorToneStyle] , [Ia] ) As Boolean 引数： 　 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 描画するX座標を渡します。 Y Single 描画するY座標を渡します。 Width Single 描画する幅を渡します。 Height Single 描画する高さを渡します。 TrimmingX Single 描画元のX座標を渡します。 TrimmingY Single 描画元のY座標を渡します。 TrimmingWidth Single 描画元の幅を渡します。 TrimmingHeight Single 描画元の高さを渡します。 Image Image 描画するイメージを渡します。 [useIcm] Boolean 色補正の使用有無を渡します。 ※ True ：色補正を行います。(既定値) False：色補正を行いません。 [Stretch] NSDLoadPictureStretch 画像ファイルのサイズを変更する指定を渡します。 (既定値：NSDLoadPictureStretch.SizeNoChange) [ColorToneStyle] NSDColorTone 色調を渡します。 (既定値：NSDColorTone.Normal) [Ia] System.Drawing.Imaging.ImageAttributes ImageAttributesを渡します。 (既定値：Nothing) 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try : ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point ) Using bp As New Bitmap(Str_FileName, True) : ' 描画するイメージをトリミングして指定範囲に描画します。 PPS.PrnDrawImage( e, 5, 5, 1024, 768, 100, 100, 1024, 768, bp) End Using : Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：ChangePixcel

構文：Public Function ChangePixcel( e , XorY , No ) As Integer 機能：座標をPixcelに変換します。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 XorY Boolean X座標かY座標かを渡します。 True：X座標 False：Y座標 No Single 変換前の値を渡します。 戻り値：Integer 戻り値の説明： Pixcelに変換した値を戻します。 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' ----------------------------- ' PSetサンプル。 ' ----------------------------- Dim Sng_X As Single = 0 Dim Sng_X2 As Single = 0 Dim Sng_X3 As Single = 0 Dim Sng_Y As Single = 0 Dim Sng_Y2 As Single = 0 ' 座標をPixcelに変換します。 Dim Int_StdX As Integer = 255 Dim Int_StdY As Integer = PPS.ChangePixcel(e, True, 12) ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Pixel) For Int_Loop1 As Integer = 0 To 15 For Int_Loop2 As Integer = 0 To 15 For Int_Loop3 As Integer = 0 To 15 Dim Int_R As Integer = Int_Loop1 * 16 + Int_Loop2 Dim Int_G As Integer = Int_Loop2 * 16 + Int_Loop3 Dim Int_B As Integer = Int_Loop3 Select Case Sng_X Case Is <= 15 If Sng_X2 > Sng_X Then Sng_X3 = (Sng_X + Int_StdX) Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) Else Sng_X3 = Sng_X Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) End If Case Else Sng_X3 = Sng_X Sng_Y2 = (Sng_Y + Int_StdY) ' 点を描画します。 PPS.PrnPsetGDI(e, Sng_X3, Sng_Y2, RGB(Int_R, Int_G, Int_B)) End Select Sng_X = Sng_X + 1 If 255 = Sng_X Then Sng_Y += 1 Sng_X = 0 Sng_X2 += 1 End If Next Int_Loop3 If 16 = Sng_Y Then Exit For End If Next Int_Loop2 Next Int_Loop1 Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：PrnInvert

構文：Public Function PrnInvert( e , X , Y , Width , Height ) As Boolean 機能：指定範囲の色を反転します。 ※デバイスによっては、反転されない場合があります。 引数： 名前 型 説明 e System.Drawing.Printing.PrintPageEventArgs PrintPageイベントのPrintPageEventArgsを渡します。 X Single 左上のX座標を渡します。 Y Single 左上のY座標を渡します。 Width Single 反転範囲の幅を渡します。 Height Single 反転範囲の高さを渡します。 戻り値：Boolean 戻り値の説明： True：成功 False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' 長さの単位を指定します。 PPS.SetPageUnit( e, GraphicsUnit.Point) ' 指定範囲の色を反転します。 PPS.PrnInvert( e, 0, 0, 330, 630) Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：GetGradationColor

構文：Public Function GetGradationColor( BorderKind , Color1 , Color2 ) As Boolean 機能：グラデーションカラーを取得します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Color1 System.Drawing.Color カラー1を返します。 Color2 System.Drawing.Color カラー2を返します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS ： ' グラデーションカラーを取得。 Dim C1 As System.Drawing.Color Dim C2 As System.Drawing.Color PPS.GetGradationColor( NSDPPS.NSDBorderKind.Origin, C1, C2 ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：GetSelectAreaGradationColor

構文：Public Function GetSelectAreaGradationColor( BorderKind , Color1 , Color2 ) As Boolean 機能：グラデーション範囲を指定する場合のグラデーションカラーを取得します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Color1 System.Drawing.Color カラー1を返します。 Color2 System.Drawing.Color カラー2を返します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS ： ' グラデーションカラーを取得。 Dim C1 As System.Drawing.Color Dim C2 As System.Drawing.Color PPS.GetSelectAreaGradationColor( NSDPPS.NSDBorderKind.Origin, C1, C2 ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetGradationColor

構文：Public Function SetGradationColor( BorderKind , Color1 , Color2 ) As Boolean 機能：グラデーションカラーを設定します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Color1 System.Drawing.Color カラー1を渡します。 Color2 System.Drawing.Color カラー2を渡します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS ： ' グラデーションカラーを設定。 PPS.SetGradationColor( NSDPPS.NSDBorderKind.Origin, Color.Red, Color.Yellow ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetSelectAreaGradationColor

構文：Public Function SetSelectAreaGradationColor( BorderKind , Color1 , Color2 ) As Boolean 機能：グラデーション範囲を指定する場合のグラデーションカラーを設定します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 Color1 System.Drawing.Color カラー1を渡します。 Color2 System.Drawing.Color カラー2を渡します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS ： ' グラデーションカラーを設定。 PPS.SetSelectAreaGradationColor( NSDPPS.NSDBorderKind.Origin, _ Color.Red, Color.Yellow ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：GetGradationArea

構文：Public Function GetGradationArea( BorderKind , X1 , Y1 , X2 , Y2 ) As Boolean 機能：グラデーションの範囲を取得します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 X1 Single 左上のX座標を返します。 Y1 Single 左上のY座標を返します。 X2 Single 右下のX座標を返します。 Y2 Single 右下のY座標を返します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' グラデーションの範囲を設定。 Dim Sng_X1 As Single = 0 Dim Sng_Y1 As Single = 0 Dim Sng_X2 As Single = 0 Dim Sng_Y2 As Single = 0 With e.PageSettings.Bounds Sng_X2 = .Width - 1 Sng_Y2 = .Height - 1 End With PPS.SetGradationArea( NSDPPS.NSDBorderKind.Origin, _ Sng_X1, Sng_Y1, Sng_X2, Sng_Y2 ) ： PPS.GetGradationArea( NSDPPS.NSDBorderKind.Origin, _ Sng_X1, Sng_Y1, Sng_X2, Sng_Y2 ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

　

名前：SetGradationArea

構文：Public Function SetGradationArea( BorderKind , X1 , Y1 , X2 , Y2 ) As Boolean 機能：グラデーションの範囲を設定します。 引数： 　 名前 型 説明 BorderKind NSDBorderKind 縁の種類を渡します(縁か元の文字かを渡します)。 X1 Single 左上のX座標を渡します。 Y1 Single 左上のY座標を渡します。 X2 Single 右下のX座標を渡します。 Y2 Single 右下のY座標を渡します。 戻り値：Boolean 戻り値の説明： True：成功　False：失敗 使用例： Public Class Form1 Dim PPS As NSDPPS = Nothing ： ' 印刷ボタンのクリック処理。 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button1.Click Try Me.PrintDocument1.Print() Finally End Try End Sub ' 印刷開始前の処理。 Private Sub PrintDocument1_BeginPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.BeginPrint Try PPS = New NSDPPS Finally End Try End Sub ' ページを印刷します。 Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs _ ) Handles PrintDocument1.PrintPage Try ' グラデーションの範囲を設定。 Dim Sng_X1 As Single = 0 Dim Sng_Y1 As Single = 0 Dim Sng_X2 As Single = 0 Dim Sng_Y2 As Single = 0 With e.PageSettings.Bounds Sng_X2 = .Width - 1 Sng_Y2 = .Height - 1 End With PPS.SetGradationArea( NSDPPS.NSDBorderKind.Origin, _ Sng_X1, Sng_Y1, Sng_X2, Sng_Y2 ) ： Finally End Try End Sub ' 印刷終了の処理。 Private Sub PrintDocument1_EndPrint( ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintEventArgs _ ) Handles PrintDocument1.EndPrint Try PPS.Dispose() Finally End Try End Sub End Class

Copyright (C) 2009-2012 Nihon System Developer Corp. All Rights Reserved.