tagCANDY CGI VBレスキュー(花ちゃん) - 印刷プレビューの表示倍率のチェックマークを設定値と同じに(VB.NET) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
印刷プレビューの表示倍率のチェックマークを設定値と同じに(VB.NET)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

印刷プレビューの表示倍率のチェックマークを設定値と同じに(VB.NET) [No.260の個別表示]
     サンプル投稿用掲示板  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 花ちゃん

 通常の場合実行図               魔界の仮面弁士 さんの回答の実行図
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ