ƒ^ƒCƒgƒ‹ F Re: ˆóüƒvƒŒƒrƒ…[”{—¦‚𒎊ዾ‚É”½‰f “Še“ú F 2010/01/26(Tue) 19:11 “ŠeŽÒ F –‚ŠE‚̉¼–Ê•ÙŽm
> PrintPreviewControl‚̃ƒ“ƒo‚ðŒ©‚Ä‚àA‚È‚É‚àŽg—p‚·‚ê‚΂¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢ó‘Ô‚Å‚·B ‚¦‚¥‚ÆA‚¨Žg‚¢‚É‚È‚Á‚Ä‚¢‚é‚Ì‚ÍA @@PrintPreviewDialog ƒNƒ‰ƒX‚Ì @@PrintPreviewControl ƒvƒƒpƒeƒB ‚Æ‚¢‚¤Ž–‚Å‚µ‚傤‚©? > ’ŽŠá‹¾‚ÉŽw’è”{—¦‚̃`ƒFƒbƒN‚ð•t‚¯‚é•û–@‚ð‚²‹³Žö‚µ‚Ä‚¢‚½‚¾‚¯‚Ü‚¹‚ñ‚©B 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() |