■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#6709-0RE#6694:印刷についていなちゃん2000-01-20(木) 13:14
#6709-0
RE#6694:印刷について
> いなちゃんさんへ
名指しはやめた方が...
私以外の人からの回答がなくなります。

> 下のソースが私の行った処理です。
> ピクチャが不正ですというエラーが出ます。
> どこがいけないのでしょうか?
> Private Sub Form_Load()
> Dim lngWindowHandle As Long                'Windowハンドル
> Dim lngWindowhDC As Long                   'Windowのデバイスコンテキスト(DC)
> Dim lngAPIReVal As Long                    'APIの戻り値
>     
>                                            '画面全体をキャプチャ
> lngWindowHandle = GetDesktopWindow         'デスクトップウィンドウのハンドルを得る
> lngWindowhDC = GetWindowDC(lngWindowHandle) 'デバイスコンテキストを得る
> 
>                                            'PictureBoxに転送
> lngAPIReVal = BitBlt(Picture1.hdc, 0, 0, Screen.Width, Screen.Height, _
>                      lngWindowhDC, 0, 0, SRCCOPY)
> Call mPrint
> End Sub
> 
> Private Sub mPrint()
>     Printer.Orientation = 2
>     Printer.PaintPicture Picture1, 0, 0
>     Printer.EndDoc                        
>     Label1.Caption = "印刷中です"
> End Sub
印刷時に Printer.PaintPicture Picture1.Image, 0, 0
とするか
BitBlt後に Picture1.Picture = Picture1.Image を追加してください。
ようはPictureプロパティとImageプロパティですね。ヘルプ等見てください。

あと、所得したデバイスコンテキストはReleaseDCで開放しましょう。
このページと関連する記事:
#35648-0Win2000でStretchBltでマウスが止る2000-12-19(火) 14:19
#2399-0テキストボックスの背景について1999-10-01(金) 06:35
#1406-0クリップボードから2005-02-15(火) 11:10
#11868-0デスクトップへの描画の仕方1999-12-17(金) 01:48
#13570-0透過処理について2000-12-21(木) 00:01
#33876-0APIが機能しない2000-11-21(火) 22:31
#16806-0はじめましてです2001-07-07(土) 13:13
#4024-0「デバイスコンテキストのハンドル」って?1999-11-13(土) 04:41
#10810-0ピクチャボックスの印刷21999-12-02(木) 11:20
#1858-1リソースの開放2002-07-18(木) 10:11
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)