タイトル : Re^2: Pictuerboxに貼り付けたBmpの印刷 投稿日 : 2008/04/11(Fri) 10:40 投稿者 : しげじゅ
> Picturebox は、印刷されていて、表示している bmp 画像が印刷されないのなら > PictureBox の AutoRedraw プロパティを True に設定して試して見て下さい。 AutoRedraw プロパティを True にはしているのですが、20個あるPictuerboxのうち 1つだけが印刷できてます。(bmpとPictuerBoxとがずれてますが) 一応以下のコードで印刷を試みています。 Private Sub Command10_Click() '---印刷--- ' CancelError プロパティを真 (True) に設定します。 CommonDialog1.CancelError = True On Error GoTo ErrHandler 'プリンタの設定ダイアログボックスを表示 CommonDialog1.Flags = cdlPDPrintSetup CommonDialog1.ShowPrinter 'ダイアログボックスの表示 On Error Resume Next If Err.Number Then Err.Clear Exit Sub End If For I = 0 To 9 Picture1(I).AutoRedraw = True Picture2(I).AutoRedraw = True ' Picture1(I).ScaleMode = vbTwips ' Picture2(I).ScaleMode = vbTwips ' Printer.PaintPicture Picture1(I).Image, 0, 0, Picxw3, Picyw3 ' Printer.PaintPicture Picture2(I).Image, 0, 0, Picxw3, Picyw3 Next I ' Printer.ScaleMode = vbTwips PrintForm '----画面サイズ内Formをまるごとプリント Exit Sub ErrHandler: End Sub |