<?xml version="1.0" encoding="UTF-8"?>
<ActiveReportsLayout Version="3.1" PrintWidth="13140" DocumentName="ARNet Document" ScriptLang="VB.NET" MasterReport="0">
  <StyleSheet>
    <Style Name="Normal" Value="font-family: Arial; font-style: normal; text-decoration: none; font-weight: normal; font-size: 10pt; color: Black" />
    <Style Name="Heading1" Value="font-size: 16pt; font-weight: bold" />
    <Style Name="Heading2" Value="font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: italic" />
    <Style Name="Heading3" Value="font-size: 13pt; font-weight: bold" />
  </StyleSheet>
  <Sections>
    <Section Type="PageHeader" Name="PageHeader1" Height="0" BackColor="16777215" />
    <Section Type="Detail" Name="Detail1" Height="7184.161" BackColor="16777215">
      <Control Type="AR.Image" Name="Picture1" Left="638.3622" Top="51.02362" Width="11565.35" Height="7313.386" LineWeight="0" SizeMode="1">[encoded data, 245820 characters]</Control>
      <Control Type="AR.Field" Name="receiver_zip_3" DataField="receiver_zip_3" Left="4511.873" Top="638.3622" Width="417.5999" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_4" DataField="receiver_zip_4" Left="5082.11" Top="638.3622" Width="417.5999" Height="564.4802" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_1" DataField="receiver_zip_1" Left="3496.673" Top="638.3622" Width="417.5999" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_2" DataField="receiver_zip_2" Left="4026.591" Top="638.3622" Width="417.5999" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_7" DataField="receiver_zip_7" Left="6620.032" Top="638.3622" Width="417.5999" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_5" DataField="receiver_zip_5" Left="5590.433" Top="638.3622" Width="417.5996" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_zip_6" DataField="receiver_zip_6" Left="6126.109" Top="638.3622" Width="417.5999" Height="550.0801" Text="9" OutputFormat="" CanGrow="0" Style="do-char-set: : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1; font-family: ＭＳ Ｐゴシック; font-size: 31pt; text-align: center; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_3" DataField="receiver_adr_3" Left="3245.103" Top="2197.984" Width="3800.126" Height="290.2677" Text="お届先住所３" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_2" DataField="receiver_adr_2" Left="3245.103" Top="1916.787" Width="3800.126" Height="290.2677" Text="お届先住所２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_nm_2" DataField="receiver_nm_2" Left="3245.104" Top="2886.803" Width="3800.126" Height="290.2677" Text="お届先名称２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_nm_1" DataField="receiver_nm_1" Left="3245.104" Top="2601.071" Width="3800.126" Height="290.2677" Text="お届先名称１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_tel" DataField="receiver_tel" Left="3706.639" Top="3189.917" Width="2039.754" Height="236.6022" Text="お届先電話番号" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1; ddo-font-vertical: none" />
      <Control Type="AR.Field" Name="kokyaku_adr_2" DataField="kokyaku_adr_2" Left="3245.103" Top="4268.977" Width="3800" Height="290" Text="ご依頼主の住所２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_adr_3" DataField="kokyaku_adr_3" Left="3245.103" Top="4562.079" Width="3800" Height="289.9999" Text="ご依頼主の住所３" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_adr_1" DataField="kokyaku_adr_1" Left="3245.103" Top="3974.74" Width="3800" Height="289.9999" Text="ご依頼主の住所１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_2" DataField="kokyaku_nm_2" Left="3245.104" Top="5172.662" Width="3800.126" Height="290.2677" Text="ご依頼主の氏名２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_nm_1" DataField="kokyaku_nm_1" Left="3245.104" Top="4883.528" Width="3800.126" Height="290.2677" Text="ご依頼主の氏名１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_tel" DataField="kokyaku_tel" Left="3709.418" Top="5462.93" Width="1987.551" Height="243.6321" Text="ご依頼主電話番号" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_day" DataField="delivery_appoint_ymd_day" Left="8040.189" Top="1653.165" Width="485.433" Height="315.1108" Text="99" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 18pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="delivery_appoint_ymd_month" DataField="delivery_appoint_ymd_month" Left="7275.551" Top="1653.165" Width="579.8625" Height="315.1108" Text="99" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 18pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="delivery_time_sign_14_16" Visible="0" Left="8235.78" Top="2150.929" Width="450.72" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_18_20" Visible="0" Left="9183.686" Top="2150.929" Width="450.7203" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_am" Visible="0" Left="7273.592" Top="2150.929" Width="450.561" Height="315.1799" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_16_18" Visible="0" Left="8717.103" Top="2150.929" Width="450.72" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_12_14" Visible="0" Left="7754.399" Top="2150.929" Width="450.72" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="delivery_time_sign_none" Visible="0" Left="10639.56" Top="2150.929" Width="450.72" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="item_cnt_bunshi" DataField="item_cnt_bunshi" Left="10385.32" Top="2562.962" Width="579.8618" Height="243.3599" Text="99" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="item_cnt_bunbo" DataField="item_cnt_bunbo" Left="10523.34" Top="2820.472" Width="579.8625" Height="213.12" Text="99" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9pt; font-weight: bold; text-align: center; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shohin_nm001" DataField="shohin_nm001" Left="7298.646" Top="2718.425" Width="3150.992" Height="280.6299" Text="商品名１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="shohin_nm002" DataField="shohin_nm002" Left="7298.646" Top="3106.771" Width="3150.992" Height="290.2677" Text="商品名２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="uketsuke_store_nm" DataField="uketsuke_store_nm" Left="7797.543" Top="3778.583" Width="2269.417" Height="233.0079" Text="受付店名" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="damaged_amt" DataField="damaged_amt" Left="10191.68" Top="3342.614" Width="802.0795" Height="214.5599" Text="99,999,999" Style="font-family: ＭＳ Ｐゴシック; font-size: 8pt; text-align: right; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="waremono_sign" Visible="0" Left="7318.269" Top="3522.364" Width="721.4406" Height="182.8798" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="namamono_sign" Visible="0" Left="8082.904" Top="3523.804" Width="721.4406" Height="181.4399" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="binrui_sign" Visible="0" Left="8866.267" Top="3523.804" Width="721.4406" Height="181.4398" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="sakasama_ng_sign" Visible="0" Left="9648.571" Top="3524.031" Width="721.4406" Height="181.4399" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="shitadumi_ng_sign" Visible="0" Left="10399.18" Top="3538.205" Width="721.4406" Height="167.0399" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="mochikomi_sign" Visible="0" Left="7317.922" Top="4129.512" Width="435.9684" Height="194.4" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="syuka_sign" Visible="0" Left="7317.922" Top="4323.402" Width="435.9684" Height="185.7599" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Shape" Name="douitsu_sign" Visible="0" Left="7317.922" Top="4495.182" Width="435.9684" Height="185.7599" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Field" Name="horei_sbt_nm" DataField="horei_sbt_nm" Left="8349.166" Top="4114.205" Width="970.0159" Height="195.8403" Text="保冷種別" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 8pt; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kiji_nm_1" DataField="kiji_nm_1" Left="7841.196" Top="4259.906" Width="3074.457" Height="249.4488" Text="記事１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kiji_nm_2" DataField="kiji_nm_2" Left="7841.196" Top="4510.488" Width="3074.457" Height="249.4488" Text="記事２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="free02" DataField="free02" Left="2585.197" Top="6019.086" Width="3800.126" Height="283.4646" Text="フリー項目２" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="free04" DataField="free04" Left="2585.197" Top="6582.047" Width="3800.126" Height="283.4646" Text="フリー項目４" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="free03" DataField="free03" Left="2585.197" Top="6293.366" Width="3800.126" Height="283.4646" Text="フリー項目３" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: bottom; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_1" DataField="kokyaku_zip_1" Left="3939.023" Top="3526.866" Width="276.6611" Height="417.1008" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_2" DataField="kokyaku_zip_2" Left="4215.119" Top="3526.866" Width="276.6611" Height="417.5999" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_3" DataField="kokyaku_zip_3" Left="4487.812" Top="3526.866" Width="276.6611" Height="417.2257" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_4" DataField="kokyaku_zip_4" Left="4929.446" Top="3526.866" Width="276.6611" Height="417.5999" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_5" DataField="kokyaku_zip_5" Left="5208.376" Top="3526.866" Width="276.6611" Height="417.5999" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_6" DataField="kokyaku_zip_6" Left="5470.296" Top="3526.866" Width="276.6615" Height="417.5999" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kokyaku_zip_7" DataField="kokyaku_zip_7" Left="5746.394" Top="3526.866" Width="276.6611" Height="417.5999" Text="9&#xD;&#xA;" Style="font-family: MS Gothic; font-size: 10pt; text-align: center; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="leteral1" DataField="leteral1" Left="10112.32" Top="3823.37" Width="502.299" Height="244.9134" Text="YR01" CanGrow="0" Style="font-family: MS Gothic; font-size: 8pt; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="ent_cod_1" DataField="ent_cod" Left="9507.952" Top="5542.299" Width="658.7719" Height="170.0787" Text="10XXXXXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="dep002_cod_1" DataField="dep002_cod" Left="11620.35" Top="5542.299" Width="413.8577" Height="170.0787" Text="6XXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="bes_cod_1" DataField="bes_cod" Left="10298.26" Top="5542.299" Width="413.8583" Height="170.0788" Text="6XXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="dep001_cod_1" DataField="dep001_cod" Left="10842.5" Top="5542.299" Width="658.7719" Height="170.0787" Text="10XXXXXXXX" OutputFormat="" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="cod_1" Left="10166.17" Top="5542.298" Width="113.3858" Height="170.0788" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="cod_3" Left="11501.29" Top="5553.638" Width="113.3858" Height="170.0787" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="cod_2" Left="10712.13" Top="5542.298" Width="113.3858" Height="170.0788" Text="-" OutputFormat="#,##0" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 5.25pt; font-weight: normal; text-align: left; vertical-align: middle; ddo-char-set: 128" />
      <Control Type="AR.Barcode" Name="kokyaku_qr_value" DataField="kokyaku_qr_value" Left="1387.843" Top="6003.212" Width="963.7796" Height="963.7796" BarStyle="24" Text="YPH:01" AutoSize="0" Font="Courier New" FontSize="8" QRCode="Err=M" CODE128="0;0;0" />
      <Control Type="AR.Barcode" Name="hikiuke_qr_value" DataField="hikiuke_qr_value" Left="6830.929" Top="6032.693" Width="963.7796" Height="963.7796" BarStyle="24" Text="YPH:01,609448540352,1410022,20121211,54,145,,;" AutoSize="0" Font="Courier New" FontSize="8" QRCode="Err=M" CODE128="0;0;0" />
      <Control Type="AR.Field" Name="free01" DataField="free01" Left="5767.938" Top="3190.11" Width="1277.291" Height="243.7795" Text="フリー項目１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: top; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="KokyakuQRCodeLabel" Left="1234.205" Top="6066.709" Width="153.071" Height="838.9181" Text="↑&#xD;&#xA;顧&#xD;&#xA;客&#xD;&#xA;コ&#xD;&#xA;ー&#xD;&#xA;ド&#xD;&#xA;↑" Style="font-family: MS Gothic; font-size: 5pt; text-align: left; vertical-align: middle; white-space: inherit; ddo-char-set: 1; ddo-font-vertical: true" />
      <Control Type="AR.Field" Name="hikiukeQRCodeLabel" Left="6676.725" Top="6096.756" Width="153.071" Height="690.5195" Text="→引受用→" Style="font-family: MS Gothic; font-size: 5pt; text-align: center; vertical-align: middle; white-space: inherit; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="receiver_adr_1" DataField="receiver_adr_1" Left="3234.897" Top="1572.094" Width="3800.126" Height="290.2677" Text="お届先住所１" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 9.012pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="tracking_no_under4" DataField="tracking_no_under4" Left="10582.87" Top="701.2914" Width="727.1998" Height="204.48" Text="9999" Style="font-family: ＭＳ ゴシック; font-size: 9pt; ddo-char-set: 128" />
      <Control Type="AR.Field" Name="tracking_no_fmt" DataField="tracking_no_fmt" Left="8211.962" Top="939.4016" Width="3216.755" Height="417.2598" Text="XXXX-XXXX-XXXX" Multiline="0" CanGrow="0" Style="font-family: ＭＳ ゴシック; font-size: 20pt; text-align: left; vertical-align: middle; ddo-char-set: 1" />
      <Control Type="AR.Barcode" Name="tracking_no_barcode" DataField="tracking_no_barcode" Left="8211.969" Top="6016.252" Width="3079.559" Height="860.5982" BarStyle="16" Text="Barcode1" CaptionPos="2" Checksum="0" Font="ＭＳ Ｐゴシック" FontSize="5" CODE128="0;0;0" />
      <Control Type="AR.Field" Name="Label1" Left="9328.253" Top="4123.276" Width="970.0159" Height="195.8403" Text="複数口" CanGrow="0" Style="font-family: ＭＳ Ｐゴシック; font-size: 8pt; vertical-align: top; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Field" Name="kyokudome_Label" Left="6053.102" Top="1231.37" Width="1220.599" Height="340.7244" Text="郵便局留" CanGrow="0" Style="background-color: Black; color: White; font-family: ＭＳ Ｐゴシック; font-size: 15pt; vertical-align: middle; white-space: nowrap; ddo-char-set: 1" />
      <Control Type="AR.Shape" Name="delivery_time_sign_19_21" Visible="0" Left="9646.3" Top="2150.929" Width="450.72" Height="315.36" BackColor="16777215" Shape="1" RoundingRadius="9.999999" />
      <Control Type="AR.Label" Name="asterisk_20_21" Left="10097.01" Top="2150.929" Width="450.7086" Height="435.4016" Caption="＊＊&#xD;&#xA;＊＊" Style="font-family: ＭＳ Ｐゴシック; font-size: 9pt; text-align: center; ddo-char-set: 128" />
    </Section>
    <Section Type="PageFooter" Name="PageFooter1" Height="0" BackColor="16777215" />
  </Sections>
  <ReportComponentTray />
  <Script><![CDATA['---フォントサイズ切替境界 変数宣言---
'名称，住所（MAX:50Byte）
const FONT_SMALL as integer = 40 
const FONT_MID as integer = 25 
	
'商品名（MAX:50Byte）
const HIN_SMALL as integer = 40
const HIN_MID as integer = 25	
	
'記事（MAX:50Byte）
const KIJINM_SMALL as integer = 40
const KIJINM_MID as integer = 25

'フリー項目（MAX:50Byte）
const FREENM_SMALL as integer = 40
const FREENM_MID as integer = 25

'郵便局名称項目（MAX:100Byte）
const SHOPNM_MID as integer = 40
const SHOPNM_LARGE as integer = 20

'お届先住所フォント定義
const TODOKEADR_LARGE as integer = 12
const TODOKEADR_MID as integer = 8
const TODOKEADR_SMALL as integer = 7
	
'お届先名称フォント定義
const TODOKENM_LARGE as integer = 12 
const TODOKENM_MID as integer = 8
const TODOKENM_SMALL as integer = 7

'ご依頼主住所フォント定義
const NIOKURIADR_LARGE as integer = 12 
const NIOKURIADR_MID as integer = 8
const NIOKURIADR_SMALL as integer = 7

'ご依頼主名称フォント定義
const NIOKURINM_LARGE as integer = 12 
const NIOKURINM_MID as integer = 8
const NIOKURINM_SMALL as integer = 7

'商品名フォント定義
const SHOHIN_LARGE as integer = 12 
const SHOHIN_MID as integer = 8
const SHOHIN_SMALL as integer = 7

'記事フォント定義
const KIJI_LARGE as integer = 12 
const KIJI_MID as integer = 8
const KIJI_SMALL as integer = 6

'フリー項目フォント定義（フリー項目１）
const SmallFREE_LARGE as integer = 6
const SmallFREE_MID as integer = 5
const SmallFREE_SMALL as integer = 4

'フリー項目フォント定義（フリー項目２～４）
const FREE_LARGE as integer = 12 
const FREE_MID as integer = 8
const FREE_SMALL as integer = 7

'郵便局名称フォント定義
const SHOP_LARGE as integer = 10
const SHOP_MID as integer = 7
''2013.09.02 K.Takasaki@fuso 課題No199 フォント統一制御,レイアウトカスタマイズ対応,郵便局留め対応 ↓↓
const SHOP_SMALL as integer = 6
'const SHOP_SMALL as integer = 6.5
''2013.09.02 K.Takasaki@fuso 課題No199 フォント統一制御,レイアウトカスタマイズ対応,郵便局留め対応 ↑↑

'文字列カウント用変数
dim len as integer

''2013.09.02 K.Takasaki@fuso 課題No199 フォント統一制御,レイアウトカスタマイズ対応,郵便局留め対応 ↓↓
''デフォルトのフォントサイズ
'お届先住所のデフォルトサイズ定義
const TODOKEADR_DEF as double = 9.012

'お届先名称デフォルトサイズ定義
const TODOKENM_DEF as double = 9.012

'ご依頼主住所デフォルトサイズ定義
const NIOKURIADR_DEF as double = 9.012

'ご依頼主名称デフォルトサイズ定義
const NIOKURINM_DEF as double = 9.012

'商品名デフォルトサイズ定義
const SHOHIN_DEF as double = 9.012

'記事デフォルトサイズ定義
const KIJI_DEF as double = 9.012

'フリー項目デフォルトサイズ定義（フリー項目１～４）
const FREE_DEF as double = 9.012

'郵便局名称デフォルトサイズ定義
const SHOP_DEF as double = 9.012

''現在のRPXの設定サイズを格納する変数
'お届先住所フォント定義
dim receiver_adr_1_Size as double
dim receiver_adr_2_Size as double
dim receiver_adr_3_Size as double
	
'お届先名称フォント定義
dim receiver_nm_1_Size as double
dim receiver_nm_2_Size as double

'ご依頼主住所フォント定義
dim kokyaku_adr_1_Size as double
dim kokyaku_adr_2_Size as double
dim kokyaku_adr_3_Size as double

'ご依頼主名称フォント定義
dim kokyaku_nm_1_Size as double
dim kokyaku_nm_2_Size as double

'商品名フォント定義
dim shohin_nm001_Size as double
dim shohin_nm002_Size as double

'記事フォント定義
dim kiji_nm_1_Size as double
dim kiji_nm_2_Size as double

'フリー項目フォント定義（フリー項目１～４）
dim free01_Size as double
dim free02_Size as double
dim free03_Size as double
dim free04_Size as double

'郵便局名称フォント定義
dim uketsuke_store_nm_Size as double

'フォントサイズ
dim Font_Size as double

Sub ActiveReport_ReportStart
	
	'スタート時に現在のRPXの設定サイズを取得する
	'お届先住所フォント定義
	try
		receiver_adr_1_Size = ctype(me.Detail1.Controls("receiver_adr_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_adr_2_Size = ctype(me.Detail1.Controls("receiver_adr_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_adr_3_Size = ctype(me.Detail1.Controls("receiver_adr_3"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	
	'お届先名称フォント定義
	try
		receiver_nm_1_Size = ctype(me.Detail1.Controls("receiver_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		receiver_nm_2_Size = ctype(me.Detail1.Controls("receiver_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'ご依頼主住所フォント定義
	try
		kokyaku_adr_1_Size = ctype(me.Detail1.Controls("kokyaku_adr_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_adr_2_Size = ctype(me.Detail1.Controls("kokyaku_adr_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_adr_3_Size = ctype(me.Detail1.Controls("kokyaku_adr_3"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'ご依頼主名称フォント定義
	try
		kokyaku_nm_1_Size = ctype(me.Detail1.Controls("kokyaku_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kokyaku_nm_2_Size = ctype(me.Detail1.Controls("kokyaku_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'商品名フォント定義
	try
		shohin_nm001_Size = ctype(me.Detail1.Controls("shohin_nm001"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		shohin_nm002_Size = ctype(me.Detail1.Controls("shohin_nm002"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'記事フォント定義
	try
		kiji_nm_1_Size = ctype(me.Detail1.Controls("kiji_nm_1"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		kiji_nm_2_Size = ctype(me.Detail1.Controls("kiji_nm_2"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'フリー項目フォント定義（フリー項目１～４）
	try
		free01_Size = ctype(me.Detail1.Controls("free01"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		free02_Size = ctype(me.Detail1.Controls("free02"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		free03_Size = ctype(me.Detail1.Controls("free03"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	try
		free04_Size = ctype(me.Detail1.Controls("free04"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try

	'郵便局名称フォント定義
	try
		uketsuke_store_nm_Size = ctype(me.Detail1.Controls("uketsuke_store_nm"), DataDynamics.ActiveReports.TextBox).Font.Size
	Catch ex as exception
	End Try
	
End Sub

Sub Detail1_Format
	
	'初期化
	try
		ctype(me.Detail1.Controls("delivery_time_sign_none"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_am"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_12_14"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_14_16"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_16_18"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_18_20"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("delivery_time_sign_20_21"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↓
	try
		ctype(me.Detail1.Controls("delivery_time_sign_19_21"), DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↑
	'2017/11/20 horiguchi 課題番号1175_お届け通知はがき廃止対応↓	
	'try
	'	ctype(me.Detail1.Controls("notice_sign1"),DataDynamics.ActiveReports.Shape).Visible = False
	'Catch ex as exception
	'End Try
	'try
	'	ctype(me.Detail1.Controls("notice_sign2"),DataDynamics.ActiveReports.Shape).Visible = False
	'Catch ex as exception
	'End Try
	'2017/11/20 horiguchi 課題番号1175_お届け通知はがき廃止対応↑
	try
		ctype(me.Detail1.Controls("waremono_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("namamono_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("binrui_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("sakasama_ng_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("shitadumi_ng_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("mochikomi_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("syuka_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("douitsu_sign"),DataDynamics.ActiveReports.Shape).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("Label1"),DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("item_cnt_bunbo"),DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("item_cnt_bunshi"),DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("hikiukeQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("hikiuke_qr_value"),DataDynamics.ActiveReports.Barcode).Visible = False
	Catch ex as exception
	End Try
	try
		ctype(me.Detail1.Controls("kokyaku_qr_value"),DataDynamics.ActiveReports.Barcode).Visible = False
	Catch ex as exception
	End Try																							
	try
		ctype(me.Detail1.Controls("KokyakuQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex as exception
	End Try
	Try
		CType(Me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = False
	Catch ex As exception
	End Try
	
	
	'郵便局留対応
	if rpt.Fields("todoke_kyokudome_kbn").Value.tostring() = "1" then
		try
			ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	else
		try
			ctype(me.Detail1.Controls("kyokudome_Label"), DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
	End If
	
	'「顧客QR」の制御
	if rpt.Fields("shiharai_houhou_kbn").Value.tostring() = "2" then
		'後納の場合、顧客QRを印字する
		try
			ctype(me.Detail1.Controls("kokyaku_qr_value"),DataDynamics.ActiveReports.Barcode).Visible= True
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("KokyakuQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	else
		'別納の場合、顧客QRを印字しない
		try
			ctype(me.Detail1.Controls("kokyaku_qr_value"),DataDynamics.ActiveReports.Barcode).Visible = False
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("KokyakuQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
	End If
	
	'「引受QR」の制御 
	if rpt.Fields("hikiuke_qr_value").Value.ToString.length = 0 Then
		try
			ctype(me.Detail1.Controls("hikiukeQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = False
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("hikiuke_qr_value"),DataDynamics.ActiveReports.Barcode).Visible = False
		Catch ex as exception
		End Try
	else
		try
			ctype(me.Detail1.Controls("hikiukeQRCodeLabel"),DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("hikiuke_qr_value"),DataDynamics.ActiveReports.Barcode).Visible = True
		Catch ex as exception
		End Try
	End If
	
	'複数口の制御
	'// ↓　2013.11.27 課題No.524 : 複数個口対応　tsunoda
	'if rpt.Fields("item_cnt_bunbo").Value.ToString() >= "2" Then
	if rpt.Fields("item_cnt_bunbo").Value >= 2 Then
	'// ↑　2013.11.27 課題No.524 : 複数個口対応　tsunoda
		try
			ctype(me.Detail1.Controls("item_cnt_bunbo"),DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
		try
			ctype(me.Detail1.Controls("item_cnt_bunshi"),DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	End If
	
	if rpt.Fields("delivery_time_sign_none").Value = "True" then
		' 希望なし
		try
			ctype(me.Detail1.Controls("delivery_time_sign_none"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_am").Value = "True" then
		' 午前中
		try
			ctype(me.Detail1.Controls("delivery_time_sign_am"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_12_14").Value = "True" then
		' 12時→14時
		try	
			ctype(me.Detail1.Controls("delivery_time_sign_12_14"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_14_16").Value = "True" then
		' 14時→16時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_14_16"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_16_18").Value = "True" then
		' 16時→18時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_16_18"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_18_20").Value = "True" then
		' 18時→20時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_18_20"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	if rpt.Fields("delivery_time_sign_20_21").Value = "True" then
		' 20時→21時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_20_21"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↓
	if rpt.Fields("delivery_time_sign_19_21").Value = "True" then
		' 19時→21時
		try
			ctype(me.Detail1.Controls("delivery_time_sign_19_21"), DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	end if
	''2018/05/18 課題№1179 2018年9月荷物戦略対応 T.Ogawa@Fuso ↑
	' お届け通知
	'2017/11/20 horiguchi 課題番号1175_お届け通知はがき廃止対応↓
	'if rpt.Fields("notice_sign").Value = "True" then 
	'	try																	
	'		ctype(me.Detail1.Controls("notice_sign1"),DataDynamics.ActiveReports.Shape).Visible = true
	'	Catch ex as exception
	'	End Try
	'else
	'	try																		
	'		ctype(me.Detail1.Controls("notice_sign2"),DataDynamics.ActiveReports.Shape).Visible = true
	'	Catch ex as exception
	'	End Try
	'End If
	'2017/11/20 horiguchi 課題番号1175_お届け通知はがき廃止対応↑
	' 割れ物
	if rpt.Fields("waremono_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("waremono_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' なまもの
	if rpt.Fields("namamono_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("namamono_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' ビン類
	if rpt.Fields("binrui_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("binrui_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 逆さま厳禁
	if rpt.Fields("sakasama_ng_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("sakasama_ng_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 下積み厳禁
	if rpt.Fields("shitadumi_ng_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("shitadumi_ng_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 持ち込み
	if rpt.Fields("mochikomi_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("mochikomi_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 集荷
	if rpt.Fields("syuka_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("syuka_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	' 同一
	if rpt.Fields("douitsu_sign").Value = "True" then
		try																		
			ctype(me.Detail1.Controls("douitsu_sign"),DataDynamics.ActiveReports.Shape).Visible = true
		Catch ex as exception
		End Try
	End If
	'複数口
	'// ↓　2013.11.27 課題No.524 : 複数個口対応　tsunoda
	'if rpt.Fields("item_cnt_bunbo").Value.tostring() > "1" then
	if rpt.Fields("item_cnt_bunbo").Value >= 2 then
	'// ↑　2013.11.27 課題No.524 : 複数個口対応　tsunoda
		try																		
			ctype(me.Detail1.Controls("Label1"),DataDynamics.ActiveReports.TextBox).Visible = True
		Catch ex as exception
		End Try
	End If
	
	'////フォント制御
	'お届け先住所
	len = 0
	len = getByteCount("receiver_adr_1")
	
	if len < getByteCount("receiver_adr_2") then
		len = getByteCount("receiver_adr_2")
	End If
	
	if len < getByteCount("receiver_adr_3") then
		len = getByteCount("receiver_adr_3")
	End If
	
	if len >= FONT_SMALL then
		Font_Size = TODOKEADR_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = TODOKEADR_MID
	else
		Font_Size = TODOKEADR_LARGE
	End If
	FontSize_Set("receiver_adr_1", receiver_adr_1_Size, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_adr_2", receiver_adr_2_Size, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_adr_3", receiver_adr_3_Size, TODOKEADR_DEF, Font_Size)
	
	
	'お届け先名称
	len = 0
	len = getByteCount("receiver_nm_1")
	
	if len < getByteCount("receiver_nm_2") then
		len = getByteCount("receiver_nm_2")
	End If
	
	if len >= FONT_SMALL then
		Font_Size = TODOKENM_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = TODOKENM_MID
	else
		Font_Size = TODOKENM_LARGE
	End If
	FontSize_Set("receiver_nm_1", receiver_nm_1_Size, TODOKEADR_DEF, Font_Size)
	FontSize_Set("receiver_nm_2", receiver_nm_2_Size, TODOKEADR_DEF, Font_Size)
	
	
	'ご依頼主住所
	len = 0
	len = getByteCount("kokyaku_adr_1")
	
	if len < getByteCount("kokyaku_adr_2") then
		len = getByteCount("kokyaku_adr_2")
	End If
	
	if len < getByteCount("kokyaku_adr_3") then
		len = getByteCount("kokyaku_adr_3")
	End If

	if len >= FONT_SMALL then
		Font_Size = NIOKURIADR_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = NIOKURIADR_MID
	else
		Font_Size = NIOKURIADR_LARGE
	End If
	FontSize_Set("kokyaku_adr_1", kokyaku_adr_1_Size, NIOKURIADR_DEF, Font_Size)
	FontSize_Set("kokyaku_adr_2", kokyaku_adr_2_Size, NIOKURIADR_DEF, Font_Size)
	FontSize_Set("kokyaku_adr_3", kokyaku_adr_3_Size, NIOKURIADR_DEF, Font_Size)
	
	
	'ご依頼主名称
	len = 0
	len = getByteCount("kokyaku_nm_1")
	
	if len < getByteCount("kokyaku_nm_2") then
		len = getByteCount("kokyaku_nm_2")
	End If

	if len >= FONT_SMALL then
		Font_Size = NIOKURINM_SMALL
	else if len >= FONT_MID and len < FONT_SMALL then
		Font_Size = NIOKURINM_MID
	else
		Font_Size = NIOKURINM_LARGE
	End If
	FontSize_Set("kokyaku_nm_1", kokyaku_nm_1_Size, NIOKURINM_DEF, Font_Size)
	FontSize_Set("kokyaku_nm_2", kokyaku_nm_2_Size, NIOKURINM_DEF, Font_Size)	
	
			
	'商品名
	len = 0
	len = getByteCount("shohin_nm001")
	
	if len < getByteCount("shohin_nm002") then
		len = getByteCount("shohin_nm002")
	End If

	if len >= HIN_SMALL then
		Font_Size = SHOHIN_SMALL
	else if len >= HIN_MID and len < HIN_SMALL then
		Font_Size = SHOHIN_MID
	else
		Font_Size = SHOHIN_LARGE
	End If
	FontSize_Set("shohin_nm001", shohin_nm001_Size, SHOHIN_DEF, Font_Size)
	FontSize_Set("shohin_nm002", shohin_nm002_Size, SHOHIN_DEF, Font_Size)
	
	
	'記事
	len = 0
	len = getByteCount("kiji_nm_1")
	
	if len < getByteCount("kiji_nm_2") then
		len = getByteCount("kiji_nm_2")
	End If

	if len >= KIJINM_SMALL then
		Font_Size = KIJI_SMALL
	else if len >= KIJINM_MID and len < KIJINM_SMALL then
		Font_Size = KIJI_MID
	else
		Font_Size = KIJI_LARGE
	End If
	FontSize_Set("kiji_nm_1", kiji_nm_1_Size, KIJI_DEF, Font_Size)
	FontSize_Set("kiji_nm_2", kiji_nm_2_Size, KIJI_DEF, Font_Size)
	
	'フリー項目１
	len = 0
	len = getByteCount("free01")

	if len >= FREENM_SMALL then
		Font_Size = SHOP_LARGE
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = FREE_MID
	else
		Font_Size = FREE_LARGE
	End If
	FontSize_Set("free01", free01_Size, FREE_DEF, Font_Size)
	
	'フリー項目２
	len = 0
	len = getByteCount("free02")

	if len >= FREENM_SMALL then
		Font_Size = SHOP_LARGE
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = FREE_MID
	else
		Font_Size = FREE_LARGE
	End If
	FontSize_Set("free02", free02_Size, FREE_DEF, Font_Size)
	
	'フリー項目３
	len = 0
	len = getByteCount("free03")

	if len >= FREENM_SMALL then
		Font_Size = SHOP_LARGE
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = FREE_MID
	else
		Font_Size = FREE_LARGE
	End If
	FontSize_Set("free03", free03_Size, FREE_DEF, Font_Size)
	
	'フリー項目４
	len = 0
	len = getByteCount("free04")

	if len >= FREENM_SMALL then
		Font_Size = SHOP_LARGE
	else if len >= FREENM_MID and len < FREENM_SMALL then
		Font_Size = FREE_MID
	else
		Font_Size = FREE_LARGE
	End If
	FontSize_Set("free04", free04_Size, FREE_DEF, Font_Size)
	
	'郵便局名称
	len = 0
	len = getByteCount("uketsuke_store_nm")

	if len >= 1 and len < SHOPNM_LARGE then
		Font_Size = SHOP_LARGE
	else if len >= SHOPNM_LARGE and len < SHOPNM_MID then
		Font_Size = SHOP_MID
	else
		Font_Size = SHOP_SMALL
	End If
	FontSize_Set("uketsuke_store_nm", uketsuke_store_nm_Size, SHOP_DEF, Font_Size)
	

End Sub

'引数をオブジェクトネームにして項目が存在しなくても処理続行できるように元のファンクションを再作成
Private Function getByteCount(ByVal ObjectNM As String) As Integer

	'サロゲート文字で文字数判定ＯＫ
	Dim dt As System.Globalization.StringInfo
	Dim num As Integer
	Dim dispnum As Integer
	Dim str As String

	Try
		str = CType(Me.Detail1.Controls(ObjectNM), DataDynamics.ActiveReports.TextBox).text.Trim()

		dt = New System.Globalization.StringInfo(str)
		num = dt.LengthInTextElements

		Dim by As Byte()

		Dim hatena As String
		Dim hatena_sjis As Byte()

		's-jisに変換すると、変換出来ない場合があり、?になる
		hatena = "?"
		hatena_sjis = System.Text.Encoding.GetEncoding(932).GetBytes(hatena)

		dispnum = 0

		'一文字ずつ取り出す
		For i As Integer = 0 To num - 1

			by = System.Text.Encoding.GetEncoding(932).GetBytes(dt.SubstringByTextElements(i, 1))

			If (Char.IsSurrogate(dt.SubstringByTextElements(i, 1))) Then
				dispnum += 2
			Else
				If (dt.SubstringByTextElements(i, 1) <> hatena And hatena_sjis(0) = by(0)) Then
					'?はこっちを通る
					dispnum += 2
				Else
					dispnum += by.GetLength(0)
				End If
			End If

		Next

	Catch ex As exception
		dispnum = 0
	End Try

	Return dispnum

End Function

'フォントサイズをセットする
Private Sub FontSize_Set(ByVal ObjectNM As String, ByVal RPXSize As Double, ByVal DefSize As Double, ByVal ScrSize As Double)

	Try
		'指定した小数桁までで比較する
		Dim RPXSize_Kirisute As Double = ShosuKirisute(RPXSize)
		Dim DefSize_Kirisute As Double = ShosuKirisute(DefSize)

		'Doubleのままだと下のIF文が正常に動作しないのでStringで比較する
		Dim RPXSize_Str As String = CType(RPXSize_Kirisute, String)
		Dim DefSize_Str As String = CType(DefSize_Kirisute, String)

		'デザイナで設定されたサイズとデフォルトサイズが一致の場合はスクリプトで変更する
		'デザイナで設定されたサイズとデフォルトサイズが不一致の場合はデザイナで設定されたサイズのままとする
		If RPXSize_Str = DefSize_Str Then
			Dim Text_Buf As DataDynamics.ActiveReports.TextBox
			Text_Buf = CType(Me.Detail1.Controls(ObjectNM), DataDynamics.ActiveReports.TextBox)
			Text_Buf.Font = New System.Drawing.Font(Text_Buf.Font.FontFamily, ScrSize)
		End If
	Catch ex As exception
	End Try

End Sub

'引数の小数第４位以降を切り捨てて返却する
'引数が負の値の場合は考慮しない
'例）引数：12.3456　／　返却値：12.345
Private Function ShosuKirisute(ByVal Value As Double) As Double

	Dim ReValue As Double

	'残す小数の位数を指定する
	Dim Keta As Integer = 3

	Try
		'① 指定された位数分だけ10の累乗する
		Dim KetaJou As Double = System.Math.Pow(10, Keta)

		'② ①と引数の積から小数部分を切り捨て、小数点の位置を元に戻す
		ReValue = System.Math.Floor(Value * KetaJou) / KetaJou

	Catch ex As Exception
		ReValue = Value
	End Try

	Return ReValue

End Function

'Sub Detail1_Format
'	try
'		'初期化
'		delivery_time_sign_none.Visible = false
'		delivery_time_sign_am.Visible = false
'		delivery_time_sign_12_14.Visible = false
'		delivery_time_sign_14_16.Visible = false
'		delivery_time_sign_16_18.Visible = false
'		delivery_time_sign_18_20.Visible = false
'		delivery_time_sign_20_21.Visible = false
'		notice_sign1.Visible = false
'		notice_sign2.Visible = false
'		waremono_sign.Visible = false
'		namamono_sign.Visible = false
'		binrui_sign.Visible = false
'		sakasama_ng_sign.Visible = false
'		shitadumi_ng_sign.Visible = false
'		mochikomi_sign.Visible = false
'		syuka_sign.Visible = false
'		douitsu_sign.Visible = false
'		Label1.Visible = False
'		item_cnt_bunbo.Visible = False
'		item_cnt_bunshi.Visible = False
'		hikiukeQRCodeLabel.Visible = False
'		hikiuke_qr_value.Visible = False
'		kokyaku_qr_value.Visible = False
'		KokyakuQRCodeLabel.Visible = False
'		
'		
'		
'		'「顧客QR」の制御
'		if rpt.Fields("shiharai_houhou_kbn").Value.tostring() = "2" then
'			'後納の場合、顧客QRを印字する
'			kokyaku_qr_value.Visible = True
'			KokyakuQRCodeLabel.Visible = True
'		else
'			'別納の場合、顧客QRを印字しない
'			kokyaku_qr_value.Visible = False
'			KokyakuQRCodeLabel.Visible = False
'		End If
'		
'		'「引受QR」の制御 hikiuke_qr_value
'		'20130605 K.Takasaki@fuso 引受QR印刷制御変更　↓↓
'		if rpt.Fields("hikiuke_qr_value").Value.ToString.length = 0 Then
'			hikiukeQRCodeLabel.Visible = False
'			hikiuke_qr_value.Visible = False
'		else
'			hikiukeQRCodeLabel.Visible = True
'			hikiuke_qr_value.Visible = True
'		End If
'		'if rpt.Fields("is_yoyaku_trans").Value.ToString() = "True" Then
'		'	hikiukeQRCodeLabel.Visible = True
'		'	hikiuke_qr_value.Visible = True
'		'else
'		'	hikiukeQRCodeLabel.Visible = False
'		'	hikiuke_qr_value.Visible = False
'		'End If
'		'20130605 K.Takasaki@fuso 引受QR印刷制御変更　↑↑
'		
'		'複数口の制御
'		if rpt.Fields("item_cnt_bunbo").Value.ToString() >= "2" Then
'			item_cnt_bunbo.Visible = True
'			item_cnt_bunshi.Visible = True
'		End If
'		
'		if rpt.Fields("delivery_time_sign_none").Value = "True" then
'			' 希望なし
'			delivery_time_sign_none.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_am").Value = "True" then
'			' 午前中
'			delivery_time_sign_am.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_12_14").Value = "True" then
'			' 12時→14時
'			delivery_time_sign_12_14.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_14_16").Value = "True" then
'			' 14時→16時
'			delivery_time_sign_14_16.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_16_18").Value = "True" then
'			' 16時→18時
'			delivery_time_sign_16_18.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_18_20").Value = "True" then
'			' 19時→22時
'			delivery_time_sign_18_20.Visible = true
'		end if
'		if rpt.Fields("delivery_time_sign_20_21").Value = "True" then
'			' 19時→22時
'			delivery_time_sign_20_21.Visible = true
'		end if
'		' お届け通知
'		if rpt.Fields("notice_sign").Value = "True" then 
'			notice_sign1.Visible = true
'		else
'			notice_sign2.Visible = true
'		End If
'		' 割れ物
'		if rpt.Fields("waremono_sign").Value = "True" then
'			waremono_sign.Visible = true
'		End If
'		' なまもの
'		if rpt.Fields("namamono_sign").Value = "True" then
'			namamono_sign.Visible = true
'		End If
'		' ビン類
'		if rpt.Fields("binrui_sign").Value = "True" then
'			binrui_sign.Visible = true
'		End If
'		' 逆さま厳禁
'		if rpt.Fields("sakasama_ng_sign").Value = "True" then
'			sakasama_ng_sign.Visible = true
'		End If
'		' 下積み厳禁
'		if rpt.Fields("shitadumi_ng_sign").Value = "True" then
'			shitadumi_ng_sign.Visible = true
'		End If
'		' 持ち込み
'		if rpt.Fields("mochikomi_sign").Value = "True" then
'			mochikomi_sign.Visible = true
'		End If
'		' 集荷
'		if rpt.Fields("syuka_sign").Value = "True" then
'			syuka_sign.Visible = true
'		End If
'		' 同一
'		if rpt.Fields("douitsu_sign").Value = "True" then
'			douitsu_sign.Visible = true
'		End If
'		'複数口
'		if rpt.Fields("item_cnt_bunbo").Value.tostring() > "1" then
'			Label1.Visible = True
'		End If
'		
'		'////フォント制御
'		'お届け先住所
'		len = 0
'		len = getByteCount(receiver_adr_1.Text.Trim())
'		
'		if len < getByteCount(receiver_adr_2.Text.Trim()) then
'			len = getByteCount(receiver_adr_2.Text.Trim())
'		End If
'		
'		if getByteCount(receiver_adr_3.Text.Trim()) then
'			len = getByteCount(receiver_adr_3.Text.Trim())
'		End If
'		
'		if len >= FONT_SMALL then
'			receiver_adr_1.Font = new System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_SMALL)
'			receiver_adr_2.Font = new System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_SMALL)
'			receiver_adr_3.Font = new System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_SMALL)
'		else if len >= FONT_MID and len < FONT_SMALL then
'			receiver_adr_1.Font = new System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_MID)
'			receiver_adr_2.Font = new System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_MID)
'			receiver_adr_3.Font = new System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_MID)
'		else		
'			receiver_adr_1.Font = new System.Drawing.Font(receiver_adr_1.Font.FontFamily, TODOKEADR_LARGE)
'			receiver_adr_2.Font = new System.Drawing.Font(receiver_adr_2.Font.FontFamily, TODOKEADR_LARGE)
'			receiver_adr_3.Font = new System.Drawing.Font(receiver_adr_3.Font.FontFamily, TODOKEADR_LARGE)
'		End If
'		
'		'お届け先名称
'		len = 0
'		len = getByteCount(receiver_nm_1.Text.Trim())
'		
'		if len < getByteCount(receiver_nm_2.Text.Trim()) then
'			len = getByteCount(receiver_nm_2.Text.Trim())
'		End If
'		if len >= FONT_SMALL then
'			receiver_nm_1.Font = new System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_SMALL)
'			receiver_nm_2.Font = new System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_SMALL)
'		else if len >= FONT_MID and len < FONT_SMALL then
'			receiver_nm_1.Font = new System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_MID)
'			receiver_nm_2.Font = new System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_MID)
'		else		
'			receiver_nm_1.Font = new System.Drawing.Font(receiver_nm_1.Font.FontFamily, TODOKENM_LARGE)
'			receiver_nm_2.Font = new System.Drawing.Font(receiver_nm_2.Font.FontFamily, TODOKENM_LARGE)
'		End If
'		
'		'ご依頼主住所
'		len = 0
'		len = getByteCount(kokyaku_adr_1.Text.Trim())
'		
'		if len < getByteCount(kokyaku_adr_2.Text.Trim()) then
'			len = getByteCount(kokyaku_adr_2.Text.Trim())
'		End If
'		
'		if len < getByteCount(kokyaku_adr_3.Text.Trim()) then
'			len = getByteCount(kokyaku_adr_3.Text.Trim())
'		End If
'		
'		if len >= FONT_SMALL then
'			kokyaku_adr_1.Font = new System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_SMALL)
'			kokyaku_adr_2.Font = new System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_SMALL)
'			kokyaku_adr_3.Font = new System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_SMALL)
'		else if len >= FONT_MID and len < FONT_SMALL then
'			kokyaku_adr_1.Font = new System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_MID)
'			kokyaku_adr_2.Font = new System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_MID)
'			kokyaku_adr_3.Font = new System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_MID)
'		else		
'			kokyaku_adr_1.Font = new System.Drawing.Font(kokyaku_adr_1.Font.FontFamily, NIOKURIADR_LARGE)
'			kokyaku_adr_2.Font = new System.Drawing.Font(kokyaku_adr_2.Font.FontFamily, NIOKURIADR_LARGE)
'			kokyaku_adr_3.Font = new System.Drawing.Font(kokyaku_adr_3.Font.FontFamily, NIOKURIADR_LARGE)
'		End If
'		
'		'ご依頼主名称
'		len = 0
'		len = getByteCount(kokyaku_nm_1.Text.Trim())
'		
'		if len < getByteCount(kokyaku_nm_2.Text.Trim()) then
'			len = getByteCount(kokyaku_nm_2.Text.Trim())
'		End If
'		if len >= FONT_SMALL then
'			kokyaku_nm_1.Font = new System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_SMALL)
'			kokyaku_nm_2.Font = new System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_SMALL)
'		else if len >= FONT_MID and len < FONT_SMALL then
'			kokyaku_nm_1.Font = new System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_MID)
'			kokyaku_nm_2.Font = new System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_MID)
'		else		
'			kokyaku_nm_1.Font = new System.Drawing.Font(kokyaku_nm_1.Font.FontFamily, NIOKURINM_LARGE)
'			kokyaku_nm_2.Font = new System.Drawing.Font(kokyaku_nm_2.Font.FontFamily, NIOKURINM_LARGE)
'		End If
'				
'		'商品名
'		len = 0
'		len = getByteCount(shohin_nm001.Text.Trim())
'		if len < getByteCount(shohin_nm002.Text.Trim()) then
'			len = getByteCount(shohin_nm002.Text.Trim())
'		End If
'		if len >= HIN_SMALL then
'			shohin_nm001.Font = new System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_SMALL)
'			shohin_nm002.Font = new System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_SMALL)
'		else if len >= HIN_MID and len < HIN_SMALL then
'			shohin_nm001.Font = new System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_MID)
'			shohin_nm002.Font = new System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_MID)
'		else		
'			shohin_nm001.Font = new System.Drawing.Font(shohin_nm001.Font.FontFamily, SHOHIN_LARGE)
'			shohin_nm002.Font = new System.Drawing.Font(shohin_nm002.Font.FontFamily, SHOHIN_LARGE)
'		End If
'		
'		'記事
'		len = 0
'		len = getByteCount(kiji_nm_1.Text.Trim())
'		
'		if len < getByteCount(kiji_nm_2.Text.Trim()) then
'			len = getByteCount(kiji_nm_2.Text.Trim())
'		End If
'		if len >= KIJINM_SMALL then
'			kiji_nm_1.Font = new System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_SMALL)
'			kiji_nm_2.Font = new System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_SMALL)
'		else if len >= KIJINM_MID and len < KIJINM_SMALL then
'			kiji_nm_1.Font = new System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_MID)
'			kiji_nm_2.Font = new System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_MID)
'		else		
'			kiji_nm_1.Font = new System.Drawing.Font(kiji_nm_1.Font.FontFamily, KIJI_LARGE)
'			kiji_nm_2.Font = new System.Drawing.Font(kiji_nm_2.Font.FontFamily, KIJI_LARGE)
'		End If
'		
'		'フリー項目１
'		len = 0
'		len = getByteCount(free01.Text.Trim())
'		if len >= FREENM_SMALL then
'			free01.Font = new System.Drawing.Font(free01.Font.FontFamily, SmallFREE_SMALL)
'		else if len >= FREENM_MID and len < FREENM_SMALL then
'			free01.Font = new System.Drawing.Font(free01.Font.FontFamily, SmallFREE_MID)
'		else		
'			free01.Font = new System.Drawing.Font(free01.Font.FontFamily, SmallFREE_LARGE)
'		End If
'		
'		'フリー項目２
'		len = 0
'		len = getByteCount(free02.Text.Trim())
'		if len >= FREENM_SMALL then
'			free02.Font = new System.Drawing.Font(free02.Font.FontFamily, FREE_SMALL)
'		else if len >= FREENM_MID and len < FREENM_SMALL then
'			free02.Font = new System.Drawing.Font(free02.Font.FontFamily, FREE_MID)
'		else		
'			free02.Font = new System.Drawing.Font(free02.Font.FontFamily, FREE_LARGE)
'		End If
'		
'		'フリー項目３
'		len = 0
'		len = getByteCount(free03.Text.Trim())
'		if len >= FREENM_SMALL then
'			free03.Font = new System.Drawing.Font(free03.Font.FontFamily, FREE_SMALL)
'		else if len >= FREENM_MID and len < FREENM_SMALL then
'			free03.Font = new System.Drawing.Font(free03.Font.FontFamily, FREE_MID)
'		else		
'			free03.Font = new System.Drawing.Font(free03.Font.FontFamily, FREE_LARGE)
'		End If
'		
'		'フリー項目３
'		len = 0
'		len = getByteCount(free04.Text.Trim())
'		if len >= FREENM_SMALL then
'			free04.Font = new System.Drawing.Font(free04.Font.FontFamily, FREE_SMALL)
'		else if len >= FREENM_MID and len < FREENM_SMALL then
'			free04.Font = new System.Drawing.Font(free04.Font.FontFamily, FREE_MID)
'		else		
'			free04.Font = new System.Drawing.Font(free04.Font.FontFamily, FREE_LARGE)
'		End If
'		
'		'郵便局名称
'		len = 0
'		len = getByteCount(uketsuke_store_nm.Text.Trim())
'		if len >= 1 and len < SHOPNM_LARGE then
'			uketsuke_store_nm.Font = new System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_LARGE)
'		else if len >= SHOPNM_LARGE and len < SHOPNM_MID then
'			uketsuke_store_nm.Font = new System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_MID)
'		else		
'			uketsuke_store_nm.Font = new System.Drawing.Font(uketsuke_store_nm.Font.FontFamily, SHOP_SMALL)
'		End If
'		
'	Catch ex as Exception
'		msgbox(ex.Message + ex.StackTrace.ToString())
'	End Try
'
'End Sub
'
'Private function getByteCount(ByVal str as string) as integer
'
'	'サロゲート文字で文字数判定ＯＫ
'	Dim dt As System.Globalization.StringInfo
'	Dim num As Integer
'	Dim dispnum As Integer
'
'
'	dt = New System.Globalization.StringInfo(str)
'	num = dt.LengthInTextElements
'
'	Dim by As Byte()
'
'	Dim hatena As String
'	Dim hatena_sjis As Byte()
'
'	's-jisに変換すると、変換出来ない場合があり、?になる
'	hatena = "?"
'	hatena_sjis = System.Text.Encoding.GetEncoding(932).GetBytes(hatena)
'
'	dispnum = 0
'
'	'一文字ずつ取り出す
'	For i As Integer = 0 To num - 1
'
'		by = System.Text.Encoding.GetEncoding(932).GetBytes(dt.SubstringByTextElements(i, 1))
'
'		If (Char.IsSurrogate(dt.SubstringByTextElements(i, 1))) Then
'			dispnum += 2
'		Else
'			If (dt.SubstringByTextElements(i, 1) <> hatena And hatena_sjis(0) = by(0)) Then
'				'?はこっちを通る
'				dispnum += 2
'			Else
'				dispnum += by.GetLength(0)
'			End If
'		End If
'
'	Next
'
'	return dispnum
'
'End Function
''2013.09.02 K.Takasaki@fuso 課題No199 フォント統一制御,レイアウトカスタマイズ対応,郵便局留め対応 ↑↑]]></Script>
  <PageSettings LeftMargin="0" RightMargin="0" TopMargin="0" BottomMargin="0" />
  <Parameters />
</ActiveReportsLayout>