VBからCRFで帳票出力

VB から CRF を印刷する手順について説明する。

まず、COReportsにて、帳票レイアウト( .crfファイル )を作成しておく。

１．プロジェクトに CrDrawを追加

	VB プロジェクト・コンポーネント
	CoReports Ver7 CrDraw Control ( CrDraw.ocx )
	をチェックする。

２．フォームに CrDraw を配置

３．以下のコードを記述

	Public Const DocName = "印刷物の名称"
	Public Const CrfName = "xxx.CRF"

	Private Sub Form_Load()
		'プリンタ印刷処理開始
		lRet = FormMain.CrDraw.StartPrinter("", DocName)
		If lRet <> 0 Then
		    Debug.Print ".StartPrinter が失敗しました。"
		End If

		' .CRFを開く
		Set Form = FormMain.CrDraw.OpenForm( CrfName)
		With Form
			'プリンタプロパティ設定
			lRet = .Printer.SetFormSize(Form)
			If lRet <> 0 Then
			    Debug.Print ".Printer.SetFormSize が失敗しました"
			End If

			.CrObjects("DATA_CONTROL_NAME").Text = "hello world!"

			lRet = .PrintOut()	' 印刷する
			If lRet <> 0 Then
			    Debug.Print ".PrintOut が失敗しました"
			End If
			.Close	' .CRFを閉じる
		End With
		Unload Me
	End Sub
    
４．xxx.CRF を用意する
	
	デフォルトでは .exe のフォルダを探すので
	xxx.CRF を .vbp のあるフォルダに用意する。

５．F5(実行)すれば印刷される

since 02/02/21(thu)