QA@IT
«質問へ戻る

質問を投稿

vb.netで画面のハードコピーを印刷したい

vb.netで画面のハードコピーを印刷するプログラムを作っております

form1にボタン1を配置しております

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' [Alt]キー+[Print Screen]キーの送信
SendKeys.SendWait("%{PRTSC}")

    ' クリップボードに格納された画像の取得
    Dim data As IDataObject = Clipboard.GetDataObject()
    If data.GetDataPresent(DataFormats.Bitmap) = True Then
        Dim bmp As Bitmap = CType(data.GetData(DataFormats.Bitmap), Bitmap)
        ' 取得した画像の保存
        bmp.Save("c:\Error.bmp", System.Drawing.Imaging.ImageFormat.Jpeg)
    End If

    ' 通常使うプリンタに印刷
      Dim objHC As New NonHCopyNet.HardCopyClass
     objHC.HardCopy(True)

End Sub

上記のようにしているのですが、保存されたファイルや印刷された用紙を見ると、
form1のデザインのみ印刷されてしまいます。
デスクトップ上のエラーメッセージ等のハードコピーを印刷致したいのですが、
どのようにすれば良いでしょうか?

ご教授下さい。

vb.netで画面のハードコピーを印刷するプログラムを作っております

form1にボタン1を配置しております

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' [Alt]キー+[Print Screen]キーの送信
        SendKeys.SendWait("%{PRTSC}")

        ' クリップボードに格納された画像の取得
        Dim data As IDataObject = Clipboard.GetDataObject()
        If data.GetDataPresent(DataFormats.Bitmap) = True Then
            Dim bmp As Bitmap = CType(data.GetData(DataFormats.Bitmap), Bitmap)
            ' 取得した画像の保存
            bmp.Save("c:\Error.bmp", System.Drawing.Imaging.ImageFormat.Jpeg)
        End If

        ' 通常使うプリンタに印刷
          Dim objHC As New NonHCopyNet.HardCopyClass
         objHC.HardCopy(True)

End Sub

上記のようにしているのですが、保存されたファイルや印刷された用紙を見ると、
form1のデザインのみ印刷されてしまいます。
デスクトップ上のエラーメッセージ等のハードコピーを印刷致したいのですが、
どのようにすれば良いでしょうか?

ご教授下さい。