スクショした画像の印刷で画像全体が印刷されない

質問

[環境]
Windows7 Professional
VisualStudio2010 Professional

お世話になります。
タイトルの件で質問があります。

フォームにボタンを追加して、そのボタンをクリックすると
そのときの画面全体（フォームではない）をスクリーンショットし、
クリップボードに保存しておきます。

そのクリップボードに保存した画像を印刷するのですが、
解像度の問題か、はたまた画像サイズが大きすぎるのか（1600*900）
わかりませんが、どうしても全体が入りきらずに印刷されてしまいます。
（感覚的には左上から右下にかけて4分の3ほど印刷される。）
VB.NETの機能としてある印刷プレビュー(PrintPreviewDialog)で印刷内容を確認しても同様でした。

ちなみにその画像をローカルに保存して確認したところ、
ちゃんと全体のスクショは撮れていました。
また、別フォームにPictureBoxを配置して、そこにクリップボードの画像を
セットして確認しても、これまた問題ありませんでした。

下記が印刷のロジックになります。

'*********************************************************************
'*********************************************************************

'イメージを保存する変数
Private memoryImage As Bitmap
Private prt As New Printing.PrintDocument

'キャプチャ後印刷
Public Function HardCopy()

Try

'イベントハンドラ追加
AddHandler prt.PrintPage, AddressOf prt_PrintPage

'画面全体のイメージをクリップボードにコピー
SendKeys.SendWait("^{PRTSC}")

'クリップボードにあるデータの取得
Dim d As IDataObject = Clipboard.GetDataObject()
'クリップボードにデータがあったか確認
If d IsNot Nothing Then
'ビットマップデータ形式に関連付けられているデータを取得
memoryImage = d.GetData(DataFormats.Bitmap)
If img IsNot Nothing Then
memoryImage = img
img.Save("C:\Users\takazoe\Pictures\sample.bmp")
Dim pd As PrintPreviewDialog = New PrintPreviewDialog
prt.DefaultPageSettings.Landscape = True

' 印刷
'prt.Print()

' プレビュー
pd.Document = prt
pd.ShowDialog()

'画面のイメージデータをクリップボードから削除
Clipboard.SetDataObject(New DataObject())
End If
End If

End Function

'PrintDocument1のPrintPageイベントハンドラ
Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawImage(memoryImage, 0, 0, memoryImage.Width, memoryImage.Height)
e.HasMorePages = False
End Sub

'*********************************************************************
'*********************************************************************

何か必要な情報がございましたら、言っていただけると助かります。
ご教示のほどよろしくお願いいたします。

回答No.1

kazne · ベストアンサー

こんにちは。ただ単純にSS取った画像を全部、描画したいってんなら

PrintPageイベントの処理で

e.Graphics.DrawImage(memoryimage, e.PageBounds)

ってやれば、画像をページ全体に縮小して描画できますよ。
ただし、この処理は画像のアスペクト比等は完全に無視してしまうので
満足できないでしょうが・・・。

とりあえず、単に画像の描画サイズを印刷範囲と同じ大きさで指定してやるだけです。

もし、アスペクト非を崩さずに尚且つ全体が描画されるようにフィットさせたいってんなら
印刷範囲の縦横の最大値と画像サイズの比率を出してやって
その比率で縮小してやるとうまくいきます。
試してみてください。

お礼

まったくお礼が出来ずにすみませんでした。

あれから結局なんだかんだとありまして、
こちらの件はとりあえず対応しなくてよくなり
放置してしまっておりました。

せっかくですので空いた時間で試したところ
ちゃんと印刷出来るようになりました！

迅速な回答をいただいておいて大変申し訳ありませんでした。
ありがとうございました。