| |
12行目というのは"test"の文字列を入れているところでしょうか？
このtestにはプリンタ名が入ります。実際はテーブルから値を取得して
きており、少し込み入った記述だったのでわかりづらいかと思いtestに
しました。根本的というのはどのような間違いなのでしょうか？
10行目がいらないというのはデザインなりプレビューなりで開いていないから
でしょうか？
念のため、実際のコードを再掲致します。よろしくお願いします。
Public Function print_Report() As Byte
On Error GoTo print_Report_Err
print_Report = 9
Dim prt As Printer
Dim valPaperName As Variant
Echo False
'レポートを印刷対象として設定
DoCmd.SelectObject acReport, REPORT_NAME, True
Set prt = Application.Printers(DLookup("PRT_NM", TBL_NAME_PRT_UKE, "SIYO_FLG=true"))
' 選択したプリンタをこのセッションで通常使うプリンタとして設定します。
'Set Application.Printer = Nothing
valPaperName = DLookup("PAPER_SIZE", TBL_NAME_PRT_UKE, "SIYO_FLG=true")
MsgBox Err.Description
prt.PaperSize = Left(valPaperName, InStr(1, valPaperName, " ") - 1)
Set Application.Printer = prt
Application.Printer.PaperSize = Left(valPaperName, InStr(1, valPaperName, " ") - 1)
'DoCmd.openReport REPORT_NAME, acViewPreview, , , , acHidden
DoCmd.openReport REPORT_NAME, acViewNormal, , , , acHidden
'DoCmd.Close acReport, REPORT_NAME, acSaveNo
print_Report_Exit:
Echo True
print_Report = 0
Exit Function
print_Report_Err:
MsgBox Err.Description
End Function
▼立ち寄り さん：
>>10: DoCmd.SelectObject acReport, REPORT_NAME, True
>>11:
>>12: Set prt = Application.Printers("test")
>>13:
>>14: ' 選択したプリンタをこのセッションで通常使うプリンタとして設定しま>す。
>>15: prt.PaperSize = acPRPSA3
>>16:
>>17: Set Application.Printer = prt
>>18:
>>19: DoCmd.openReport REPORT_NAME, acViewNormal, , , , acHidden
>
>よくよく確認したら12行目から根本的に間違っています。
>あと10行目も意味がないような・・・・
>サンプルがネットにいっぱいころがっているのでまず調べて
>みたらどうですか？
|
|
leo
- 06/9/14(木) 17:04 -
