プリンタプロパティをExcel印刷に反映させるには (ID:41041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まず、ユーザに任意のプリンタを選択させ、そのプリンタの特定の プロパティを設定してもらいます。これについては下記のURLの情報を 参考にして正常に作動しました。 http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00613.html で、その後エクセルのBOOKを開いて印刷するんですが、その印刷の 際に先に設定したプリンタ特定のプロパティを反映させることは出来 ないでしょうか？ ExcelObj, WorkBook: Variant; begin ExcelObj:=CreateOleObject('Excel.Application'); WorkBook:=ExcelObj.WorkBooks.Open(ExtractFilePath(Application.Exename)+'TEST.xls'); // Printer.SetPrinter(Device, Driver, Port, DeviceMode); WorkBook.PrintOut(EmptyParam,EmptyParam,EmptyParam,EmptyParam, cbPrinter.Items[cbPrinter.ItemIndex]); ExcelObj.quit; WorkBook:=unAssigned; ExcelObj:=unAssigned; end; 印刷は上のようにWorkBookを単純に印刷するだけのものですが、 このままではプリンタデフォルトの設定で印刷されるだけです。 上記のコメントアウトしている行でプリンタを再設定しても 結果は変わりませんでした 何か方法が有るのであれば、ご教示下さい。よろしくお願いします。