404 motivation not found | t_ishidaのブログ

11月/07

12

Access

Accessのレポートを使ってて、

割とウザイのが意図せぬうちに保存されてしまって

妙な事になってしまう事です。

これは印刷の設定が自動設定でないものを

抽出するプログラムです。

Sub x()
Dim r As Dao.Recordset
Set r = CurrentDb.OpenRecordset( _
"SELECT MSysObjects.Name FROM MsysObjects " & _
"WHERE (Left([Name],1)<>""~"") " & _
"AND (Left([Name],4) <> ""Msys"") " & _
"AND (MSysObjects.Type)= -32764 " & _
"ORDER BY MSysObjects.Name; " _
)
Dim p as Printer
While r.EOF = False
DoCmd.OpenReport r("Name"), acViewDesign
Set p = Reports(r("Name")).Printer
If Reports(r("Name")).UseDefaultPrinter = False Then
Debug.Print r("Name") & "は" & p.DeviceName "に設定がされてて、" & _
"紙サイズが自動設定" & IIf(p.PaperSize <> 7, "じゃない。", "だ。" _
)
End If
DoCmd.Close acReport, r("Name")
r.MoveNext
Wend
r.Close
End Sub

こんなのを標準モジュールに作っておいて、

リリース前に実行してチェックすると、

一個一個チェックするよりはだいぶ楽になります。

え?

一個一個、チェックしてもそんなに面倒くさくないって?

そうかも知れないが、うちは一個一個チェックする訳にはイカナイのさ、

レポートだけで200個くらい有るから(死)

Share and Enjoy:
  • Digg
  • del.icio.us
  • Google Bookmarks
  • Tumblr
  • email
  • Facebook
  • FriendFeed

RSS Feed

コメントはまだありません。

Leave a comment!

<< 先週

どう書く? >>

Find it!

Theme Design by devolux.org

Tag Cloud