| ■79647 / ) |
Re[2]: フォームの印刷について |
□投稿者/ KW (3回)-(2016/04/25(Mon) 12:51:50)
|
■No79645 (WebSurfer さん) に返信
> ■No79644 (KW さん) に返信
>
> ご自分ではどこまで実装できたのでしょうか？
>
> それを書いていただいて、「△△を期待して○○のようにしたが、結果は××のよう
> になってしまう。期待した結果を得るにはどうしたら良いか」というような質問にし
> ていただくと回答が得やすいと思います。
ありがとうございます。
ソースは下記となります。
表示している画面には、グリッドが3個あり(5列5行位のものです)、表示されている画面を
そのまま印刷したいのですが、どのようにプログレミングすればよいか
分からない状況です。(下記で1個はできたのですが)
そもそも下記の考え方が合っているのか、他に簡単な方法があるでしょうか？
Private Sub btnprint_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
Try
fgdUri1.PrintParameters.HeaderFont = New Font("ｍｓ ゴシック", 11)
fgdUri1.PrintParameters.PrintDocument.DefaultPageSettings.Landscape = True
fgdUri1.PrintParameters.PrintDocument.DefaultPageSettings.Margins.Top = 100
fgdUri1.PrintParameters.PrintDocument.DefaultPageSettings.Margins.Left = 5
fgdUri1.PrintParameters.PrintDocument.DefaultPageSettings.Margins.Right = 0
fgdUri1.PrintParameters.PrintDocument.DefaultPageSettings.Margins.Bottom = 0
fgdUri1.PrintGrid("今日の売り上げ")
End Sub
|
|
