タイトル : Re: vb6でPictureBoxの印刷 投稿日 : 2010/09/26(Sun) 15:15 投稿者 : 魔界の仮面弁士
> Printer.PaintPicture Picture1, 0, 0 第一引数に PictureBox を指定してはいけません。 PictureBox を描画するのではなく、 PictureBox の画像を描画するという点に注意してください。 ヒント。下記を実行してみてください。 ' フォーム上に、4 つのコントロールを貼っておきます。 ' PictureBox ×1 (Picture1) ' Image ×3 (Image1、Image2、Image3) ' プロパティ等は初期値のままで構いません。 Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.BackColor = vbYellow Set Picture1.Picture = Me.Icon Picture1.ForeColor = vbRed Picture1.Print "弁士" Image1.BorderStyle = vbBSSolid Image2.BorderStyle = vbBSSolid Image3.BorderStyle = vbBSSolid Set Image1.Picture = Picture1.Picture 'Picture プロパティ Set Image2.Picture = Picture1.Image 'Image プロパティ Set Image3.Picture = Picture1 'プロパティ省略 End Sub |