• ベストアンサー

コモンダイヤローグでの印刷

コモンダイヤローグで印刷を使用して行いたいと思っています。 プロパティーのOrientation = cdlLandscapeに設定しているのですが、横に印刷することが出来ません。 Me.CommonDialog1.ShowPrinter Me.CommonDialog1.Orientation = cdlLandscape Me.PrintForm Printer.EndDoc どうぞ、よろしくお願い致します。

noname#11049
noname#11049

質問者が選んだベストアンサー

  • ベストアンサー
  • todo36
  • ベストアンサー率58% (728/1234)
回答No.1

Printer.Orientation では

noname#11049
質問者

お礼

申し訳ありません。文章の途中かと思っていたのですが、回答だったのですね。 おかげさまで上手く行きました。ありがとうございました。

noname#11049
質問者

補足

申し訳ありません、途中で切れてしまっているみたいなのですが・・・

関連するQ&A

  • 印刷方向縦横変更の設定の仕方について

     VB初心者です。  印刷方向の縦横変更をしようとして、  Printer.Orientation = vbPRORlandscape Form4.PrintForm としたところ、  「このプリンターで印刷することはできません。」とエラーになります。  Printer.Orientation = vbPRORlandscape文がなければ、横で切れてしまいますが印刷されますし、プリンタのドライバのプロパティを直接縦方向印刷に変更したら、ちゃんと縦に正常に印刷します。  また、Printer.Orientation = vbPRORlandscape文だけでもエラーとなりません。    いちいちプリンタプロパティを変更せずに、VB側から直接操作するにはどのようにしたらよいのでしょう。  よろしくお願いします。

  • VBからの印刷でページが順番に印刷されません。

    VBからPrinterオブジェクトを使用して複数ページを印刷しています。 Printer.print "1ページ目" Printer.EndDoc Printer.print "2ページ目" Printer.EndDoc Printer.print "3ページ目" Printer.EndDoc のように命令を実行すると、1,2,3の順に印刷されず、1,3,2の順に印刷されます。(いつもではありません) おそらくプリンタのプロパティのスプール周りの設定によってこのようになるのかなと思っているのですが、確実に印刷命令を発行した順番に紙が排出されるようにするにはどのようにしたらよいでしょうか?

  • VBでファイルを指定して印刷

    はじめまして、いまVBを使ってTextBoxに、ファイルを指定して そのファイルの内容の一覧印刷ができるようなプログラムを組んでいます。 一部分だけですが、自分なりに考えて作ったものが、 FileNumber = FreeFile Open frm01.CommonDialog1.FileName For Input As #FileNumber Printer.Print StrConv(InputB(LOF(FileNumber), FileNumber), vbUnicode) Close #FileNumber Printer.EndDoc のような感じで、もし他に方法があれば教えて欲しいのですが。 まだ、VBをはじめて1ヶ月程度の初心者なので、どうか詳しい方、 回答のほうをお願い致します。

  • Excel VBAにてフォームの印刷向き変更

    excel2000を利用しています。 以下のように、フォームを印刷するボタンを作成しました。 Private Sub cmd印刷_Click() Me.PrintForm End Sub ページ設定やプリンタの設定で縦横の切り替えを行っていますが、実際印刷すると、印刷向きは縦から横に変更が出来ません。 印刷向きを横にして印刷する方法または、印刷設定が出来る方法があれば教えてください。 よろしくお願いいたします。

  • Excel VBAにてフォームの印刷向き変更

    以下のように、フォームを印刷するボタンを作成しました。 Private Sub cmd印刷_Click() Me.PrintForm End Sub プリンタの設定で印刷する前に、プレビュー画面を確認するようにしていますが、こちらでは印刷向きは縦から横に変更が出来ません。 印刷向きを横にして印刷する方法または、印刷設定が出来る方法があれば教えてください。 単純な質問で失礼かもしれませんが、よろしくお願いいたします。

  • フォームとその上にあるMSFlexグリッドのハードコピー方法

    フォームとそのフォーム上にあるMSFlexグリッドの ハードコピーを、やはりそのフォーム上に設けたコマンド ボタンのクリック一発で行えるようにしたいのです。 下記の構文で、PrintFormメソッドを使ってやってみましたが、 MSFlexグリッドの部分が真っ黒に印刷されてしまいます。 With Printer .PaperSize = vbPRPSA4 .Orientation = vbPRORLandscape End With Form_Ichiran.PrintForm   どなたかご存知の方、よろしくお願いします。

  • pdfファイルの印刷をAcrobatproでで印刷

    Printerのプロパティで見ると、普通紙に設定してあるのに、ファイン紙であるとして、設定不一致であると言ってきて、印刷ができない。数日前まではちゃんと印刷していたのに。今でもWordの文書は正しく印刷してくれる。どうしてこうなるのか困り果てている。 ※OKWAVEより補足:「キヤノン製品」についての質問です。

  • テスト印刷してみたのですが印刷されません。

    教えていただけると助かります。 windows10でBrother DCP-J968N Printer を使用しています ルーターを変えたので ドライバーをアンインストールして インストールし直しました。テスト印刷してみたのですが印刷されません。 プリンターのプロパティのポートには ルーター名が表示されています。 なんの作業がたりないのでしょうか? ※OKWAVEより補足:「ブラザー製品」についての質問です。

  • ACCESSの印刷設定が変です

    ACCESSで同じレポートを2部印刷するように設定しておきたいのですが、なかなか上手くいきません。 レポートのデザインビュー ↓ Page Setup(ページ設定) ↓ Page Setup(ページ設定) ↓ Page(ページ) ↓ Use Specific Printer(英語バージョンになってるので日本語で何て書いてあるのか分かりません) ↓ Printer(プリンター) ↓ Properties(プロパティ) ↓ 「部数」を"2"に変える ↓ 保存 ↓ OK とやってみるとできるかなと思ったのですが、設定が保存されず1枚しか印刷されません。 同じように、「倍率を指定する」の所を50%などに変えてやってみると設定は保存されて50%の大きさで出てきます。 印刷部数はここの画面で設定できないのでしょうか?

  • 突然本文が印刷できなくなった

    Windows7, printer,エプソン870です  新しくパソコンを買いましてNHKの料理をWeb印刷し正常でしたが セキュリティーソフト90日間インストールしますかと頻繁に出ましたのでクリックしましたその後 主文が印刷されるのみで、本文が印刷されず困っています初心者ですがどなたか教えていただけませんか宜しくお願い致します 以前はソニー製のMEだから出来ない土思っていましたのに

専門家に質問してみよう