お世話になっております。
投稿箇所を間違え申し訳ございません。
再度投稿させてください。

開発　VB2005

印刷のプレビュー画面の倍率を50%にして表示しています。
表示は出来ているのですが、虫眼鏡をクリックすると自動にチェックが入っています。
これを50にチェックを付けて表示したいのですが
PrintPreviewControlのメンバを見ても、なにも使用すればいいのか分からない状態です。
PrintPreviewControlを使用する事自体が間違いなのでしょうか。？
PrintPreviewControlで調べた理由は指定ページの表示にPrintPreviewControlのメンバを
使用したので、同じメニューなら虫眼鏡関係もあるかな？と思ったのが
調べた理由です。

虫眼鏡に指定倍率のチェックを付ける方法をご教授していただけませんか。

よろしくお願い致します。

> PrintPreviewControlのメンバを見ても、なにも使用すればいいのか分からない状態です。
えぇと、お使いになっているのは、

　　PrintPreviewDialog クラスの
　　PrintPreviewControl プロパティ

という事でしょうか?


> 虫眼鏡に指定倍率のチェックを付ける方法をご教授していただけませんか。

PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.5

Dim ts As ToolStrip = DirectCast(PrintPreviewDialog1.Controls!toolStrip1, ToolStrip)
Dim tsb As ToolStripSplitButton = DirectCast(ts.Items!zoomToolStripSplitButton, ToolStripSplitButton)
DirectCast(tsb.DropDownItems(0), ToolStripMenuItem).Checked = False
DirectCast(tsb.DropDownItems(6), ToolStripMenuItem).Checked = True

PrintPreviewDialog1.ShowDialog()

> えぇと、お使いになっているのは、
>
> 　　PrintPreviewDialog クラスの
> 　　PrintPreviewControl プロパティ
>
> という事でしょうか?
はい。そうです。
>
> > 虫眼鏡に指定倍率のチェックを付ける方法をご教授していただけませんか。
>
> PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.5
>
> Dim ts As ToolStrip = DirectCast(PrintPreviewDialog1.Controls!toolStrip1, ToolStrip)
> Dim tsb As ToolStripSplitButton = DirectCast(ts.Items!zoomToolStripSplitButton, ToolStripSplitButton)
> DirectCast(tsb.DropDownItems(0), ToolStripMenuItem).Checked = False
> DirectCast(tsb.DropDownItems(6), ToolStripMenuItem).Checked = True

DirectCast初めて知りました。勉強になりました。
ありがとうございます。

> 投稿箇所を間違え申し訳ございません。

コンタクト さんですよね？
今回で、５回目の掲示板の投稿間違いですよ。

> > 投稿箇所を間違え申し訳ございません。
>
> コンタクト さんですよね？
> 今回で、５回目の掲示板の投稿間違いですよ。

前の投稿の名前を忘れてしまい、名前を変えました。
紛らわしくて、申し訳ございません。

5回・・・・
そういうところが普段の生活にも出ているんですね・・・・。
申し訳ございません。