• ベストアンサー

AccessレポートのラベルをVBAでかきたい

事情があって、直接レポートには文字をかけません。 なのでVBAで…と思ったのですがわかりません。 線の引き方は Me.Line (8 * 567, 0)-(8 * 567, 2430) としています。 こんな感じで、VBAを使い、位置を指定しつつ、表示させる文字も指定して、文字を表示、というようなことはできないでしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • Gin_F
  • ベストアンサー率63% (286/453)
回答No.3

> えと、フォームではなくレポートに、なんですが、CreateControl は使えるんでしょうか? あれ?Access2000では、 CreateControl、CreateReportControl メソッド なんてのになってますね。 #自宅では、Access2003で確認しました。 構文についてはほとんど同じですね。 CreateReportControl(reportname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]]) 詳細はヘルプで確認してください。 > 最初にレポートは作成しておいて、移動のみをレポートオープン時(印刷時)に こちらの方法だと、各プロパティに値を代入することになると思います。 Me!コントロール名.Top = xxx とかのように。

w-inty
質問者

お礼

無事できました。 ありがとうございました。

その他の回答 (2)

  • Gin_F
  • ベストアンサー率63% (286/453)
回答No.2

> 現在手元にAccessがないので確かめられないのですが、 どのような手順で、やりたいのかがよく分からないので、コントロールを 作成する方法を案内しました。 構文は以下のとおりです。 CreateControl メソッド CreateControl(formname, controltype[, section[, parent[, columnname[, left[, top[, width[, height]]]]]]])

w-inty
質問者

お礼

回答ありがとうございます。 えと、フォームではなくレポートに、なんですが、CreateControl は使えるんでしょうか? formnameとかいてあるもので。。 やりたいことは、レポートにラベルを書きたいが、自動で生成するか、もしくは、 最初にレポートは作成しておいて、移動のみをレポートオープン時(印刷時)に VBAを使って動作させる、ということがしたいのです。 おわかりいただけたでしょうか?

w-inty
質問者

補足

移動させる場合のコードは レポート名.Label(使用者).Left = 5 * 5 こんな感じでしょうか?

  • Gin_F
  • ベストアンサー率63% (286/453)
回答No.1

いまいち、何のためになのかよく分かりませんが、 やるとしたら、 CreateControl メソッド かな?

w-inty
質問者

お礼

回答ありがとうございます。 現在手元にAccessがないので確かめられないのですが、 VBAに CreateControl "***"←表示したい文字 とかってすればいいのでしょうか? 表示させる位置はどのように指定すればいいのでしょうか?