タイトル : Re^3: 白黒印刷 投稿日 : 2006/03/16(Thu) 21:47 投稿者 : 花ちゃん
> 上記をPrintDocumentの最初に追記しても出力はカラーでした。 私が投稿したのは、下記設定ですよ。 True はカラー印刷になります。 PrintDocument1.DefaultPageSettings.Color = False 下記コードを試して見て下さい。 '--------------------------------------------------------------------- Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click PrintDocument1.DefaultPageSettings.Color = False PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _ Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim picWidth As Integer = PictureBox1.Width Dim picHeight As Integer = PictureBox1.Height e.Graphics.DrawImage(PictureBox1.Image, 10, 10, picWidth, picHeight) End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize PictureBox1.Image = System.Drawing.Image.FromFile("c:\test.bmp") End Sub |