| 投稿日 | ： 2003/08/20(Wed) 10:57 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: DataReportでのプリンタ設定の変更について |
DataReport では試して降りませんが
>★ - Tiff形式のファイルを印刷する方法 - 初めの一歩 08/15-15:16 No.5429
の質問と同様かと思います。
SetPrinter API 等を使って事前に設定を変更しておけばできると思います。
DataReport でも試して見たら、設定が反映されました。
（DataReport は今回初めて使ったので貴方が試された状況と同じかどうか解りませんが。）
Private Sub Command1_Click()
Dim Ret As Long
'用紙サイズ＝A3 用紙の向き＝縦 印刷部数＝１ 拡大率＝200%
Ret = fPrinterDevModeSet(vbPRPSA3, vbPRORPortrait, 1, 200)
DataReport1.Show
’ DataReport1.PrintReport False, rptRangeAllPages
End Sub
自作関数 fPrinterDevModeSet は下記よりコピーして標準モジュールにペーストして下さい。