【WR2.0】プリンターのトレイ変更について

[勝股]

はじめて投稿します。
WingReportは初心者に近いので教えて頂けると助かります。

プリンターはデフォルトで自動給紙に設定されています。
業務の運用上プリンター設定を変えることができないので
VB5.0のプログラムから給紙方法を変更して手差しトレイから
印刷したいのですが、変更方法がわかりません。
wrSetReportPrinterを使えばいいのかなと思ったのですが
具体的な使い方がわからず困っています。
できたら簡単なサンプルみたいなものを教えていただけると
助かります。よろしくお願いします。

環境はWindows95、京セラLS-3700です。
プリンターはNetWareのネットワーク上にあります。

[Hirayama]

いつもお世話になっております。

プリンターの給紙方法を設定するサンプルを掲載しますので
参考にしてみて下さい。

‘**********************************************
‘給紙番号 0x137 : MPトレイに設定する場合
‘**********************************************

Dim bytDev() As Byte
Dim lngSize As Long
Dim PrtDat As String
Dim nRet As Long

PrtDat = Space$(255)

‘レポートプリンタ情報のサイズを取得
nRet = wrGetReportPrinter(hReport, PrtDat, lngSize, WAP_GPINFOSIZE)

‘バッファの確保
ReDim bytDev(lngSize) As Byte

‘レポートプリンタ情報を取得(DEVMODE構造体)
nRet = wrGetReportPrinter(hReport, PrtDat, bytDev(0), WAP_GPDEVICEINFO)

‘56,57バイト目が給紙方法
bytDev(56) = CByte(&H37) ‘0x37
bytDev(57) = CByte(&H1) ‘0x01

‘レポートプリンタ情報を設定
nRet = wrSetReportPrinter(hReport, PrtDat, bytDev(0))

以上宜しくお願い致します。

[投稿者]

投稿