ReportPrintWithView(hwnd,filename,option,windowstyle)

hwnd

起動元のウィンドウハンドルを識別します。

filename

帳票ファイル名（レポートファイル名（*.agr），またはフォームシートファイル名（*.fms））を指定します。ファイルのパスは，オプション記述ファイルで指定できますが，ここでファイルのパスを含めて指定することもできます。

帳票ファイル名を指定するとき，エクスプローラなどで，ファイルを一つ選択したあと，ポップアップメニューから［プロパティ］を選択すると，ファイルのプロパティを表示できます。［EURのプロパティ］タブで，帳票ファイルを設計したEUR製品のプログラムプロダクト情報を確認することで，帳票ファイルを参照，または印刷できるEUR製品のプログラムプロダクト情報を特定できます。

複数様式で帳票を印刷する場合は，オプション記述ファイルのキーワードMultiReportSetFileに指定する帳票セット指定ファイルにフォームシートファイル名を指定するので，filenameの指定は省略できます。

option

/kオプションでオプション記述ファイル名を指定します。記述形式を次に示します。

　
"/k オプション記述ファイル名"

オプション記述ファイル名をフルパスで指定しなかった場合は，EURのインストール先フォルダからの相対パスが仮定されます。

オプション記述ファイルでは，次に示す指定ができます。複数様式で帳票を印刷する場合は，指定しても無効になるキーワードがあります。オプション記述ファイルのキーワードに指定する情報については，「7.12.1　オプション記述ファイルのキーワード」を参照してください。

表5-5　オプション記述ファイルに指定できるキーワード（ReportPrintWithView関数（Visual Basic対応））

指定できるキーワード	一つの帳票を印刷する場合	複数様式で印刷する場合
DBInfoFileName	○	×
DBInfoFilePath	○	○
FontWidthMode	○	○
ImageFilePath	○	○
MappingDataFile	○	△
MappingDataPath	○	○
MultiFormInfoDefFile	×	○
MultiFormInfoDefPath	×	○
MultiReportSetFile	×	○
MultiReportSetPath	×	○
ReplaceItemCntlFile	○	○
ReplaceItemCntlFilePath	○	○
ReplaceItemFilePath	○	○
ReportFilePath	○	○
ReportTitle	○	○
UserDefDataFile	○	△
UserDefDataPath	○	○
ZoomRate	○	○

（凡例）

○：指定できます

△：指定しても無効です

×：指定できません

windowstyle

ReportPrintWithView関数の起動時の，ウィンドウの形式を指定します。

指定値	説　　明
1	フォーカスを持った通常のウィンドウで表示されます。
2	フォーカスを持ち，アイコン化されているウィンドウで表示されます。
3	フォーカスを持ち，最大表示されているウィンドウで表示されます。

ReportPrintWithView関数を指定した場合は，EURのレポート印刷ウィンドウが表示されます。印刷は，レポート印刷ウィンドウのメニューから［印刷］を選択することで，実行できます。また，オプション記述ファイルを指定すると，入力ファイルの指定やウィンドウ表示のズーム倍率が設定できます。

レポート印刷ウィンドウのメニューから［終了］を選択すると，ウィンドウを閉じて呼び出し元へリターンします。リターン時には，処理結果を表示するリターンコードを返します。

ReportPrintWithView関数が正常に処理された場合には，EURのレポート印刷ウィンドウが表示されます。それ以外の場合は，エラーコードを返すか，またはEURのレポート印刷ウィンドウが表示されます。

エラーコードについては，マニュアル「EUR メッセージ」を参照してください。

'★ EURのDLL関数宣言 ★
Private Declare Function ReportPrintWithView Lib "hieur20.dll" (ByVal x1 As Long, ByVal x2 As String, ByVal x3 As String, ByVal x4 As Long) As Long
'★ EURのDLL関数宣言 ★
    
'★ EURのDLL関数実行宣言 ★
Private Sub Command1_Click()
Dim x2 As String
Dim x3 As String
Dim r1 As Long
    
x2="table.agr"
                            '帳票ファイル名(パス名省略)
x3="/k d:\grpmail\tmp\kopt1.txt"
                            'オプション記述ファイル(フルパス)
r1=ReportPrintWithView(Form1.hWnd,x2,x3,1)
Label1.Caption=r1
                            'リターンコード設定
End Sub
'★ EURのDLL関数実行宣言 ★