|
|
<STYLE type=text/css>
PRE{
font-family: "MS 明朝";
font-size:16px
}
</STYLE>
| |
|
|
' **********************************************************
' データ読出し
' **********************************************************
Function GetData( )
Query = "select * from 商品分類マスタ"
Call DBGet( Cn, Rs, Query, false )
OutData = ""
bFirst = true
nRow = 0
Do While not DBEof( Rs )
' 初回ヘッダー印刷
if bFirst then
bFirst = false
Call HeadPrint()
end if
' 改頁ヘッダー印刷
if nRow > nMax then
OutData = OutData & "</PRE>"
OutData = OutData & "<PRE style='page-break-before:always'>"
OutData = OutData & vbCrLf
Call HeadPrint()
end if
Call DetailPrint( )
Rs.MoveNext
Loop
End Function
| |
|
以下サンプルイメージ
** 得意先別商品別売上管理表 ** 99/99/99 Z9頁
得意先 9999 J−−−−−−−−−−−−−−−−−−−−−−−J
商品コード 商品名 金額 商品区分
------------------------------------------------------------------------------------------------------------------
商品分類 XXX J−−−−−−−−−−−−−−−−−−−−−−−J
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
9999 J−−−−−−−−−−−−−−−−−−−−−−−J ZZ,ZZZ,ZZ9 JJ
合計 ZZZ,ZZZ,ZZ9
得意先計 ZZZ,ZZZ,ZZ9
|
' **********************************************************
' 文字列のバイト計算
' **********************************************************
function ByteLen( strTarget )
Dim i,nLen,nRet,strMoji,nAsc
nRet = 0
nLen = Len( strTarget )
For i = 1 to nLen
nRet = nRet + 2
strMoji = Mid( strTarget, i, 1 )
nAsc = Asc( strMoji )
if &H20 <= nAsc and nAsc <= &H7E then
nRet = nRet - 1
end if
if &HA1 <= nAsc and nAsc <= &HDF then
nRet = nRet - 1
end if
Next
ByteLen = nRet
end function
| |
|
|
<SPAN style='position:absolute;left:位置'>文字列</SPAN>
<SPAN style='font-weight:bold'>文字列</SPAN>
<SPAN style='font-size:サイズ'>文字列</SPAN>
| |
|
|