ＡＣＴＩＶＥＲＥＰＯＲＴで表示するにはどうしたらよいですか？ (ID:120954)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ACTIVEREPORTの超初心者です。現在表示を行うためのコードを書いています。表紙のサイズをＢ４で横に表示したいのですが、どうやって指定をすればいいのかわかりません。 あと、コードを書いたのですが、うまく表示できません。詳しい方教えてください。 Dim ls_BeforeHaiKbn As String Dim ls_BeforeChiku As String Dim ls_BeforeTokuikbn As String '以前分の得意先区分 '------------------------------------------------------------------ 'プロシージャ名: :ActiveReport_DataInitialize '説明: : '------------------------------------------------------------------ Private Sub ActiveReport_DataInitialize() Dim ls_Sql As String Dim ls_Date As String If gi_Debug = 0 Then On Error GoTo ActiveReport_Initialize_ERR End If '該当データの設定 dtcData.ConnectionString = "'DRIVER={SQL Server};DATA SOURCE=" & gs_DSNName & ";DATABASE=" & gs_DBName & ";UID=sa;'" '対象データの取得 ls_Sql = "" ls_Sql = ls_Sql & "SELECT " ls_Sql = ls_Sql & "C_TantoCD, " ls_Sql = ls_Sql & "C_TantoNm, " ls_Sql = ls_Sql & "C_TokuiKbn, " ls_Sql = ls_Sql & "C_TokuiCD, " ls_Sql = ls_Sql & "C_TokuiNm, " ls_Sql = ls_Sql & "C_ShohinKei1, " ls_Sql = ls_Sql & "C_ShohinKei2, " ls_Sql = ls_Sql & "C_ShohinAra1, " ls_Sql = ls_Sql & "C_ShohinAra2, " ls_Sql = ls_Sql & "C_henkin, " ls_Sql = ls_Sql & "C_JunUriAge, " ls_Sql = ls_Sql & "C_ShohiZei, " ls_Sql = ls_Sql & "C_UriageKei, " ls_Sql = ls_Sql & "C_ArariKei, " ls_Sql = ls_Sql & "C_Ritsu " ls_Sql = ls_Sql & "FROM xxx " ls_Sql = ls_Sql & "WHERE C_UserName = " ls_Sql = ls_Sql & "'" & gv_UserName & "' " ls_Sql = ls_Sql & "ORDER BY C_TantoCD, " ls_Sql = ls_Sql & "C_TokuiKbn, " ls_Sql = ls_Sql & "C_TokuiCD " dtcData.Source = ls_Sql dtcData.Refresh '該当会社名を表示 txtCompanyName.Text = gs_CompanyName '指定日付 ls_Date = Left(go_GetList.gs_Date, 4) & "/" & Mid(go_GetList.gs_Date, 5, 2) & "/" & Right(go_GetList.gs_Date, 2) '' If gi_Hosei = 0 Then txtNowDate.Text = Format(ls_Date, "yyyy年m月d日") & "現在" '' Else '' txtNowDate.Text = gs_Gengou & CInt(Format(ls_Date, "yyyy")) - gi_Hosei & "年" & Format(ls_Date, "m月d日") & "現在" '' End If 'txtC_Tokuikbn.DataValue Exit Sub ActiveReport_Initialize_ERR: MsgBox Err.Number & Chr(13) & Err.Description s End Sub ''Private Sub Detail_format() '' MsgBox txtC_Tokuikbn.Text ''End Sub '------------------------------------------------------------------ 'プロシージャ名: :Detail_BeforePrint '説明: : '------------------------------------------------------------------ Private Sub Detail_BeforePrint() If gi_Debug = 0 Then On Error GoTo Detail_BeforePrint_ERR End If '同一の得意先区分２の場合は表示しない If ls_BeforeTokuikbn = txtC_Tokuikbn.Text Then txtC_Tokuikbn.Visible = False '上記以外は、表示を行う。 Else txtC_Tokuikbn.Visible = True End If '' If ls_BeforeHaiKbn = txtsHaiNm.Text Then '' txtsHaiNm.Visible = False '' Else '' txtsHaiNm.Visible = True '' End If '' ls_BeforeHaiKbn = txtsHaiNm.DataValue '' '' If ls_BeforeChiku = txtsChikuNm.Text Then '' txtsChikuNm.Visible = False '' Else '' txtsChikuNm.Visible = True '' End If '' ls_BeforeChiku = txtsChikuNm.DataValue Exit Sub Detail_BeforePrint_ERR: MsgBox Err.Number & Chr(13) & Err.Description End Sub こう書きました。おかしいところを教えてください。