テキストエディタでの印刷について

[M.S.]

ヘルプを見ながら書いたのですが、あまりわからなかったので、ダイアログ ボックスは表示されるのですが、プリンタに出力されません。
下にコードを貼り付けて置きますので、修正・追加で書かないといけないところがあれば、教えてください。

コード: 全て選択

Sub MainWnd_IDM_PRINT_MenuClick()
	dim hEdit as long
	dim prt as PRINTDLG
	dim hHandle as long
	dim dwFileSize As DWord
	dim dwAccessByte as DWord
	dim FileName[MAX_PATH-1] as Byte
	dim buffer as String

	FillMemory(VarPtr(prt),Len(prt),0)
	prt.lStructSize=Len(prt)
	prt.hwndOwner=hMainWnd
	prt.hDevMode=NULL
	prt.hDevNames=NULL
	prt.Flags=PD_ALLPAGES or PD_COLLATE or PD_PAGENUMS or PD_SELECTION or PD_SHOWHELP or PD_USEDEVMODECOPIES
	prt.nFromPage=0
	prt.nToPage=0
	prt.nMinPage=0
	prt.nMaxPage=99
	prt.nCopies=1
	prt.hInstance=NULL
	prt.lCustData=GetDlgItem(hMainWnd,EditBox1)
	prt.lpfnPrintHook=0
	prt.lpfnSetupHook=0
	prt.hPrintTemplate=0
	prt.hSetupTemplate=0

	if PrintDlg(prt)=0 then exit sub

	hEdit=GetDlgItem(hMainWnd,EditBox1)
End Sub

[M.K]

PrintDlgは、あくまでも印刷前の諸設定を行うだけの機能をもちます。

実際の印刷は、自分でプログラム（プリンタのデバイスコンテキストを取得してそこに描画する等）する必要があります。

[M.S.]

去年ABを始めたばかりの初心者なので、コードの記述の仕方があまりわからないので、ヘルプの「PrintDlg」を見ながらテキストエディタの「GetOpenFileName」や「GetSaveFileName」を参考に書いただけなので、「実際の印刷」のプログラムの仕方がわかりません。
なので、よろしければコードの記述の仕方を教えて下さい。

[M.K]

「コードの切れ端」ＨＰの以下のレスを参考にしてください。
　「[AB3] APIで印刷する方法」
　　http://dbp.cool.ne.jp/patio/patio.cgi?mode=view&no=159

[イグトランス]

ようするにPrintDlg関数の実行後、PrintDlg()の引数に渡したPRINTDLGの変数のメンバhDCへ出力させればいいのです。
Paintイベントを処理しているプログラムなら直接MainWnd_Paint()にこれを渡せばいいのですが、どうもそうではないようですね。

ウィンドウやコントロールの中にはWM_PRINTメッセージを送り付ければ済むのもあるのですが、私が試した限りエディットコントロールには効きませんでした。
なので自分でエディットコントロールの中身をGetWindowTextで取り出してDrawTextか何かで出力することになるのではないでしょうか。