C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 15 を表示中)
■5087 / )  プリントダイアログでプリンター設定しても変わらない
□投稿者/ わかば (1回)-(2007/07/04(Wed) 10:22:19)

分類:[VB.NET (Windows)] 

はじめて質問させていただきます。

今、エクセルファイルを印刷するにあたって、プリントダイアログを
表示して、プリントダイアログの手動設定に従って、印刷したいと
思っています。

しかし、現状は、プリントダイアログでプリンターを変更しても
デフォルトプリンタで印刷されてしまいます。

プリントダイアログの手動設定に従って、印刷するにはどのように
すれば良いのでしょうか?

また、プリントダイアログを表示するとき、プリントダイアログを
画面の最前面に出すにはどのようにすれば良いのでしょうか?

以下は、素人ながら自分なりに記述したものです。

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.Worksheet
Dim FilePass As String = "C:表.xls"

xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open(FilePass, 0)
xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True

Dim PrintDialog1 As New PrintDialog

PrintDialog1.PrinterSettings = New System.Drawing.Printing.PrinterSettings

If PrintDialog1.ShowDialog() = DialogResult.OK Then
   xlSheet.PrintOut() 
End If

以上、お助けいただければ幸いです。


返信 編集キー/


管理者用

- Child Tree -