過去ログ

                                Page     323
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼レポートで空白列を作る  Take 03/7/2(水) 11:07
   ┗Re:列?  イケガミ 03/7/2(水) 11:48
      ┗Re:うまいことできません。  Take 03/7/3(木) 12:49

 ───────────────────────────────────────
 ■題名 : レポートで空白列を作る
 ■名前 : Take
 ■日付 : 03/7/2(水) 11:07
 -------------------------------------------------------------------------
   レポートで決まった様式で印刷したいのですが
ふつうに印刷をすると最後の用紙ではデータの量によって
途中で様式が終わってしまいます。
残りに必要な空白列を作ってきれいな様式にしたいのですが
どのようにすればいいのでしょうか。
ちなみに様式は25列です。
バージョンはAccess97です。
よろしくお願いします。

 ───────────────────────────────────────  ■題名 : Re:列?  ■名前 : イケガミ <ikegami_kumamoto@dosule.com>  ■日付 : 03/7/2(水) 11:48  -------------------------------------------------------------------------
   >ふつうに印刷をすると最後の用紙ではデータの量によって
>途中で様式が終わってしまいます。

列ではなく、行でしょうか?

[ACC2] レコードがない場合も用紙の最後まで罫線を出力する方法
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/404/0/63.asp

 ───────────────────────────────────────  ■題名 : Re:うまいことできません。  ■名前 : Take  ■日付 : 03/7/3(木) 12:49  -------------------------------------------------------------------------
   回答ありがとうございます。
早速、昨日から作っているのですが
どうもうまいこといきません。

下の文を書きましたが書かなかったときと同様に
途中で終わってしまいます。
どこがどう悪いのでしょうか。

ちなみに140というのは今回のレコード数です。

Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

  dim i

  i = i + 1
    If i <= 140 Then
       Me.NextRecord = True
       Me![施工場所].Visible = True
       Me![作業内容].Visible = True
       Me![延長距離].Visible = True     
    Else
       Me.NextRecord = False
       Me![施工場所].Visible = False
       Me![作業内容].Visible = False
       Me![延長距離].Visible = False
    End If
End Sub

変数がiが変わっていないのが理由だと思うのですが。
HPのようなグループ印刷がないので改ページの処理は
入れていないのですがこれが悪いのでしょうか。


レコード数の処理はまだ作っていません。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 323