掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アクセスでレポートごとにプリンタの設定をするには？ (ID:139230)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございます！！！ なぜか Close をすると設定が反映されないみたいです。 Close せずにプレビューでオープンするようにすると、うまくいきました。 が、この場合、ツールバーに表示される「閉じる」をクリックした場合、 なぜかデザインモードのレポートが表示されてしまいます。 xボタンで閉じた場合には、正常に前のフォームに戻ることができますが・・・。 解決方法がありましたら教えてください！ Sub SetPrinter(strReportName As String) Dim Rpt As Report DoCmd.OpenReport strReportName, acViewDesign, , , acHidden Set Rpt = Reports(strReportName) With Rpt.Printer ' 10mm に設定 Twip値 1mm = 56.7Twip(概算) .TopMargin = Round(10 * 56.7, 2) .BottomMargin = Round(10 * 56.7, 2) .LeftMargin = Round(10 * 56.7, 2) .RightMargin = Round(10 * 56.7, 2) End With DoCmd.Save ObjectType:=acReport, ObjectName:=strReportName ' 一度閉じると、設定が反映されないので、閉じずに開く 'DoCmd.Close ObjectType:=acReport, ObjectName:=strReportName, Save:=acSaveYes DoCmd.OpenReport strReportName, acViewPreview Set Rpt = Nothing End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.