| ピクチャーボックスの内容を印刷する （０２８） | |
| ピクチャーボックスに表示されている内容をイメージとしてプリンターに出力する。 Private Sub Command1_Click() 'ピクチャーボックスの内容を印刷する Picture1.AutoRedraw = True Set Picture1.Picture = Picture1.Image Printer.PaintPicture Picture1, 0, 0 Printer.EndDoc End Sub |
|
| イメージコントロールの内容を印刷する | |
| Private Sub Command1_Click() 'イメージコントロールの内容を印刷する Printer.PaintPicture Image1, 0, 0 Printer.EndDoc End Sub |
|