问题:求助!!我是才学VB的,想问一下我想打印一个窗体的内容,可是每次只能打印出屏幕上的这一段,超出屏幕的它就不打印了,这是怎么回事啊
你增加一个VScrollBar 和一个hscrollbar 和增加2个图片框PicBack PicDraw(放在picBack里面) 你试试~如果你是打印文字就可以改改
Option Explicit Private Sub Form_Load() PicDraw.AutoRedraw = True PicDraw.AutoSize = True PicDraw.BorderStyle = 0 PicDraw.Top = 0 PicDraw.Left = 0 PicDraw.Picture = LoadPicture("D:\My Pictures\1.jpg")'加载图片 HScroll1.Min = 0 HScroll1.Max = PicDraw.Width - PicBack.Width VScroll1.Min = 0 VScroll1.Max = PicDraw.Height - PicBack.Height End Sub Private Sub HScroll1_Change() PicDraw.Left = -HScroll1.Value End Sub Private Sub HScroll1_Scroll() PicDraw.Left = -HScroll1.Value End Sub Private Sub VScroll1_Change() PicDraw.Top = -VScroll1.Value End Sub Private Sub VScroll1_Scroll() PicDraw.Top = -VScroll1.Value End Sub 如果你对求助!!我是才学VB的,想问一下我想打印一个窗体的内容,可是每次只能打印出屏幕上的这一段,超出屏幕的它就不打印了,这是怎么回事啊这个问题有好的意见或
建议,请留言
|