ab.com コミュニティ

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

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

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

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

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

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

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

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