フレームIE印刷

frame.htm

<HTML>
<HEAD>
<TITLE>フレームIE印刷</TITLE>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
</HEAD>
<FRAMESET id="TopFrame" rows="70,*">
	<FRAME name="HeadFrame" src="control.php?view=head">
	<FRAME name="BodyFrame" src="control.php?view=body">
</FRAMESET>
</HTML>

control.php

<?
# **********************************************************
# 外部ファイル
# **********************************************************
require_once( "common.php" );
require_once( "db.php" );
require_once( "model.php" );

# **********************************************************
# 定数定義
# **********************************************************
define( 'PASS_MESSAGE', 1 );
define( 'PASS_HEAD', 2 );
define( 'PASS_BODY', 3 );

define( 'VIEW_MESSAGE', 'viewmessage.php' );
define( 'VIEW_HEAD', 'view.php' );
define( 'VIEW_BODY', 'view2.php' );

# **********************************************************
# グローバル変数
# **********************************************************
$Target		= '商品分類マスタ';
$KeyName	= '';
$KeyField	= '';
$ErrMessage	= '';
$Message	= '';
$InData		= '';
$OutData	= '';
$FONT = 'ＭＳ 明朝';	# 印刷用フォント
$FONT_SIZE = 16;		# サイズ
$nMax = 20;		# １ページあたりの行数

# **********************************************************
# 初期処理
# **********************************************************
if ( $_POST['In1001'] != "" ) {
	setcookie( 'In1001', $_POST['In1001'] );
}

$SQL = new DB( "localhost", "lightbox", "root", "" );
$SQL->Debug = FALSE;

# **********************************************************
# 処理コントロール
# **********************************************************
switch( $_POST['GNO'] ) {
	# ヘッド部からの処理
	case PASS_HEAD:
		CheckDataHead( );
		if ( $ErrMessage == "" ) {
			GetData( $SQL );
		}
		else {
			$_POST['GNO'] = PASS_MESSAGE;
		}
		break;

}

# **********************************************************
# ビュー
# **********************************************************
CreateInData( );
switch( $_POST['GNO'] ) {
	# メッセージ表示
	case PASS_MESSAGE:
		require_once( VIEW_MESSAGE );
		break;

	# ヘッド部からの処理
	case PASS_HEAD:
		EditDataBody();
		require_once( VIEW_BODY );
		break;

	# ボディ部からの処理
	case PASS_BODY:
		EditDataBody();
		require_once( VIEW_BODY );
		break;

	# 初期画面
	default:
		if ( $_GET['view'] == 'head' ) {
			RestoreCookie( );
			EditDataHead( );
			require_once( VIEW_HEAD );
		}
		if ( $_GET['view'] == 'body' ) {
			EditDataBody();
			require_once( VIEW_MESSAGE );
		}
		break;

}

# **********************************************************
# 終了処理
# **********************************************************
$SQL->Close();

# **********************************************************
# デバッグ
# **********************************************************
#DispData();
?>

model.php

<?
# **********************************************************
# SQL文字列作成用
# **********************************************************
function SetCond( &$Value ) {

	if ( $Value == "" ) {
		$Value .= " where ";
	}
	else {
		$Value .= " and ";
	}

}

# **********************************************************
# データベースデータの読出し
# **********************************************************
function GetData( &$SQL ) {

	global $Target,$KeyField,$KeyName;
	global $OutData,$nMax;

	$Query = 'select * from ' . $Target;
	if ( $_POST['In1001'] != "" ) {
		$Query .= " where 名称 like '%{$_GET['In1001']}%'";
	}
	$Column = $SQL->QueryEx( $Query );

	$OutData = "";
	$bFirst = TRUE;
	$nRow = 0;

	while ( $Column ) {

		# 初回ヘッダー印刷
		if( $bFirst ) {
			$bFirst = FALSE;
			HeadPrint( $nRow );
		}

		# 改頁ヘッダー印刷
		if( $nRow > $nMax ) {
			$OutData .= "</PRE>";
			$OutData .= "<PRE style='page-break-before:always'>";
			HeadPrint( $nRow );
		}

		DetailPrint( $Column, $nRow );

		$Column = $SQL->QueryEx( "" );

	}

}

# **********************************************************
# ヘッダ出力
# **********************************************************
Function HeadPrint( &$nRow ) {

	global $OutData;

	$OutData .= str_repeat( " " , 25 );
	$OutData .= "＊＊ 商品分類一覧 ＊＊\n";
	$OutData .= "商品分類 名  称\n";
	$OutData .= str_repeat( "-" , 80 ) . "\n";

	$nRow = 4;

}

# **********************************************************
# 1行出力
# **********************************************************
Function DetailPrint( &$Column, &$nRow ) {

	global $OutData;

	$OutData .= $Column['商品分類'] . "      ";
	$OutData .= $Column['名称'] . "\n";

	$nRow = $nRow + 1;

}

# **********************************************************
# ヘッド部の編集
# **********************************************************
function EditDataHead( ) {

	global $Target,$KeyField,$KeyName;

}

# **********************************************************
# ボディ部の編集
# **********************************************************
function EditDataBody( ) {

	global $Target,$KeyField,$KeyName;

}

# **********************************************************
# 更新処理
# **********************************************************
function UpdateData( &$SQL ) {

	global $ErrMessage,$Message;
	global $Target,$KeyField,$KeyName;

	return TRUE;
}

# **********************************************************
# 削除処理
# **********************************************************
function DeleteData( &$SQL ){

	global $ErrMessage,$Message;
	global $Target,$KeyField,$KeyName;

	return TRUE;
}

# **********************************************************
# ヘッド部のエラーチェック
# **********************************************************
function CheckDataHead( ) {

	global $ErrMessage;
	global $Target,$KeyField,$KeyName;

	return TRUE;
}

# **********************************************************
# ボディ部のエラーチェック
# **********************************************************
function CheckDataBody( ) {

	global $ErrMessage;
	global $Target,$KeyField,$KeyName;

	return TRUE;
}

?>

view.php

ActiveX 使用前にこちらを参照して下さい

ローカルスクリプトに VBScript を使用しています

<SCRIPT language="VBScript">

' *********************************************************
' ローカルスクリプトのグローバル変数
' *********************************************************
Dim Ie

' *********************************************************
' ローカルスクリプトのグローバル定数
' *********************************************************
Const OLECMDID_PRINTPREVIEW = 7
Const OLECMDEXECOPT_DODEFAULT = 0

' **********************************************************
' フォームのチェック
' **********************************************************
function frmMain_onSubmit()

	frmMain_onSubmit = true

end function

' **********************************************************
' フィールドのクリア
' **********************************************************
function ClearField()

	document.all("In1001").value = ""

end function

' **********************************************************
' 印刷プレビュー
' **********************************************************
function PrintPreview()

	if not IsObject( Ie ) then
		Set Ie = CreateObject("InternetExplorer.Application")
		Ie.Visible = False
	end if

	Ie.Navigate(parent.BodyFrame.location)

	if Ie.Busy then
		Call window.setTimeout("Call Preview()", 100, "VBScript")
	else
		Call Ie.ExecWB( OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT )
	end if
 
end function

function Preview()

	if Ie.Busy then
		Call window.setTimeout("Call Preview()", 100, "VBScript")
	else
		Call Ie.ExecWB( OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT )
	end if

end function

</SCRIPT>


<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<TITLE>PHP 雛形</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>

<FORM
	name=frmMain
	method=GET
	action=control.php
	target=BodyFrame
>
<TABLE border=0 bgcolor=black cellspacing=1 cellpadding=5>
<TR>
<!-- *******************************************************
 入力
******************************************************** -->
	<TD class=MyCell>名　称</TD>
	<TD class=MyCell>
		<INPUT
			type=text
			name=In1001
			value="<?= $_POST['In1001'] ?>"
		>
	</TD>

<!-- *******************************************************
 送信ボタン
******************************************************** -->
	<TD class=MyCell>
		<INPUT type=submit name=send value="送信">
	</TD>

<!-- *******************************************************
 クリアボタン
******************************************************** -->
	<TD class=MyCell>
		<INPUT 
			type=button
			value="クリア"
			onClick='ClearField()'
		>
	</TD>

<!-- *******************************************************
 画面初期化ボタン
******************************************************** -->
	<TD class=MyCell>
		<INPUT 
			type=button
			value="Cancel"
			onClick='top.location="frame.htm"'
		>
	</TD>
<!-- *******************************************************
 印刷プレビューボタン
******************************************************** -->
	<TD class=MyCell>
		<INPUT 
			type=button
			value="印刷プレビュー"
			onClick='Call PrintPreview()'
		>
	</TD>
</TR>
</TABLE>

<!-- *******************************************************
 画面ID
******************************************************** -->
<INPUT type=hidden name=GNO value="<?= PASS_HEAD ?>">
</FORM>

</BODY>
</HTML>

view2.php

<SCRIPT language="javascript" type="text/javascript">

// *********************************************************
// フォームのチェック
// *********************************************************
function CheckData() {

	return true;

}

</SCRIPT>

<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<TITLE>PHP 雛形</TITLE>
<STYLE>
	PRE {
		font-family:'<?= $FONT ?>';
		font-size:<?= $FONT_SIZE ?>;
	}
	.MyHead {
		background-color:silver
	}
	.MyCell {
		background-color:white
	}
</STYLE>
</HEAD>

<!-- *******************************************************
 ドキュメントオブジェクト
******************************************************** -->
<BODY>
<SPAN style='color:blue'><?= $ErrMessage ?></SPAN>
<SPAN style='color:black;font-weight:bold'><?= $Message ?></SPAN>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name=frmMain
	method=GET
	action=control.php
	onSubmit='return CheckData()'
>

<!-- *******************************************************
 画面定義
******************************************************** -->
<PRE>
<?= $OutData ?>
</PRE>

<!-- *******************************************************
 画面番号
******************************************************** -->
<INPUT type=hidden name=GNO value="<?= PASS_BODY ?>">

<!-- *******************************************************
 HEAD 部の入力データ引継ぎ用の埋め込み
******************************************************** -->
<?= $InData ?>
</FORM>

</BODY>
</HTML>

viewmessage.php

<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<TITLE>メッセージ表示専用</TITLE>
<STYLE>
	.MyCell {
		background-color:silver
	}
</STYLE>
</HEAD>
<BODY>
<SPAN style='color:blue'><?= $ErrMessage ?></SPAN>
<SPAN style='color:black;font-weight:bold'><?= $Message ?></SPAN>
</BODY>
</HTML>

スペーシング

# **********************************************************
# 1行出力
# **********************************************************
Function DetailPrint( &$Column, &$nRow ) {

	global $OutData;

	$OutData .= sprintf("%-11s", $Column['商品コード'] );
	$OutData .= sprintf("%-50s", $Column['商品名'] );

	$Work = sprintf("%13s", number_format( $Column['在庫評価単価'] ) );

	$OutData .= $Work;
	$OutData .= "\n";

	$nRow = $nRow + 1;

}

sprintf を使用しない場合は以下のように書きます
(他の言語に書き直す場合に有効です)

# **********************************************************
# 1行出力
# **********************************************************
Function DetailPrint( &$Column, &$nRow ) {

	global $OutData;

	$Work = $Column['商品分類'] . str_repeat( " " , 11 );
	$OutData .= substr( $Work, 0, 11 );
	$Work = $Column['名称'] . str_repeat( " " , 50 );
	$OutData .= substr( $Work, 0, 50 );

	$Work = str_repeat( " " , 13 ) . number_format( $Column['在庫評価単価'] );
	$OutData .= substr( $Work, strlen($Work)-13, 13 );
	$OutData .= "\n";

	$nRow = $nRow + 1;

}