サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2010/03/09 19:08
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[印刷関係][ダイアログ][] *
* キーワード：印刷プレビュー,表示倍率,チェックマーク,Checked,プリンター *
***********************************************************************************
タイトル ： 印刷プレビュー倍率を虫眼鏡に反映
記 事 No ： 9825
投 稿 日 ： 2010/01/26(Tue) 17:58
元質問者 ： tama
印刷のプレビュー画面の倍率を50%にして表示しています。
表示は出来ているのですが、虫眼鏡をクリックすると自動にチェックが入っています。
これを50にチェックを付けて表示したいのですが
--------------------------------------------------------------------------------------
記事No ： 9826
投稿日 ： 2010/01/26(Tue) 19:11
回答者 ： 魔界の仮面弁士
--------------------------------------------------------------------------------------
通常の場合
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.5
PrintPreviewDialog1.ShowDialog()
End Sub
魔界の仮面弁士 さんの回答の場合
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.Document = PrintDocument1
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
' 100% の場合は、↓4 に設定
DirectCast(tsb.DropDownItems(6), ToolStripMenuItem).Checked = True
PrintPreviewDialog1.ShowDialog()
End Sub
---------------------------------------------------------
一部、実投稿とコードを変更させて頂きました。正しくは、記事No ： 9826 をご覧下さい。- By 花ちゃん
通常の場合実行図 魔界の仮面弁士 さんの回答の実行図
 |
