tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ページ設定ダイアログを使わずに
投稿日: 2005/11/29(Tue) 17:13
投稿者Nおう
[OSのVer]:Windows2000  [VBのVer]:VB.NET2003  

こんにちわ。色々と参考にさせて頂いてます。

ドットインパクトプリンタに印刷するプログラムを作成しております。
用紙は、ユーザ定義のサイズ(連続用紙)を使用しています。

 印刷指示をした時に、プログラムから用紙サイズを選択させているのですが、
違う用紙サイズで印刷をしようとしてしまいます。
("A3"に印刷しようとしているようで、用紙サイズエラーが起きます)
 なので、途中に"ページ設定ダイアログ"を使用してみたのですが、
そこで使用したい用紙サイズを指定すると、印刷は成功します。
(用紙の初期値として"A3"が選択されていました)
 ページ設定ダイアログを使わずにページ設定を反映させる
方法はありますでしょうか?御教授お願いします。

*以下、私が書いたコードです。
Friend PageSetting As New PageSettings

Dim SrcIdx as Integer
Dim SizIdx as Integer

'使用するプリンタ
PageSetting.PrinterSettings.PrinterName = "プリンタ名"
'給紙方法の設定
PageSetting.PaperSource = PageSetting.PrinterSettings.PaperSources.Item(SrcIdx)
'用紙設定
PageSetting.PaperSize = PageSetting.PrinterSettings.PaperSizes.Item(SizIdx)

PrDoc01.DefaultPageSettings = PageSetting

'============ページ設定ダイアログを使用
Dim PD As New PageSetupDialog
PD.Document = PrDoc01
PD.ShowDialog()
'====================================

If MsgBox("印刷を開始しますか?", MsgBoxStyle.YesNo, "確認") = MsgBoxResult.No Then
・・・以降、印刷処理・・・

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。