タイトル : Re: 印刷で用紙の横向きと縦向きをきりかえる 投稿日 : 2008/03/06(Thu) 12:30 投稿者 : 花ちゃん
> こちらで Landscapeを操作する方法がのっていたのですが > うまく切り替えることができません。 今、確認しましたが、クリック毎に縦向き、横向きにプレビュー表示しておりますが どのようなコードで試されたのでしょうか? http://hanatyan.sakura.ne.jp/dotnet/Prt08.htm#no2 Form に次のコントロールを貼り付けて、下記のコードを試して見てください。 PrintDocument1 / PrintDocument1 / Button1 / Button2 Public Class Form1 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _ System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim g As Graphics = e.Graphics g.DrawString("あいうえお", _ New Font("MS Pゴシック", 12), Brushes.Black, 0, 0) End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.DefaultPageSettings.Landscape = True '横向き '確認のためにプレビューを表示 PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.Size = New Size(800, 900) PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.5 PrintPreviewDialog1.ShowDialog() End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click PrintDocument1.DefaultPageSettings.Landscape = False '縦向き '確認のためにプレビューを表示 PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.Size = New Size(800, 900) PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.5 PrintPreviewDialog1.ShowDialog() End Sub End Class |