VB6.0で印刷プレビューを行うには？ (ID:88573)

名前

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

本文 > VB6.0だと印刷プレビューを作成するコントロールがないのでしょうか？ あります。印刷プレビュー機能を持つコントロールとしては、 VB6にDataReportコントロールやCrystalReportコントロールが 付属しています。エディションにもよりますけれども。 ただ、これらは Printerオブジェクトとは印刷手順がまったく異なるので、 現在の「Printer.Print ・・・・」なコードを流用する事はできません。 現在の印刷ロジックを捨て去っても良いのであれば、こうした 外部コンポーネントに頼ってみるのも手かも知れません。 > 改ページなどで複数ページにわたる場合対応できないのでは？ たとえば、プレビューフォーム側に、独自のNewPageメソッドを 実装しておき、その中で Public Sub NewPage() Set Picture配列変数(n) = Me.Image Me.Cls End Sub のような実装を行うことで対応できないでしょうか? で、別途実装したページ切り替えボタンで、 Set .Picture = Picture配列変数(ページ番号) のようにして切り替えて表示させるとか……。 # ちなみに、秀丸エディタのプレビュー機能(秀丸パブリッシャー)は、 # VB6にて開発されているようですね。(プレビュー部分はPictureBox)