vb用printform打印不出全部窗体内容-小知识

话题：vb用printform打印不出全部窗体内容,怎么办?

回答：我来告诉你标准 !用数据报表设计器设计数据报表

话题：VB form 打印缩放的问题,想把form扩大打印到A4纸

问题详情：不管怎么设置,都不管用,很郁闷~ 码如下: Printer.Zoom=

回答：FORM的大小不是无 大的,是不能超过屏幕分辨率的范围的。 这种情况可以在form中放一个picturebox,然后再加上垂直和水平滚动条,在picturebox中打印内容作为模拟显示,picturebox的大小可以超过屏幕大小的。 如果是打印的话,建议直接向printer发送print命令,不需要通过FORM.PrintForm ------------------------- 给个 ,发段示例 码给你。

话题：VB程序打印窗体的问题

问题详情：想用VB放大打印窗体,具体如下:我用VB设计了一个诊断报告打

回答：大致能实现要求 不会在内存 作图像,用了一个图片框 转了一下 VB code Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Const SRCCOPY=&HCC0020 ' (DWORD) dest=source Private Sub mand2_Click() Dim nW As Long, nH As Long nW=form1.Width / Screen.TwipsPerPixelX nH=form1.Height / Screen.TwipsPerPixelY BitBlt Picture1.hDC,

话题：vb PrintForm 往下

问题详情：左右真合适 怎么让上边的开始位置从一条条空白以后再开始打印!

回答：打印前加一句 Print 就留空行了

话题：vb打印窗体窗体中有text、frame等控件,有个“打印”按钮

问题详情：窗体中有text、frame等控件,有个“打印”按钮,想打印真个窗体

回答：你可以在打印按钮上添加一个当点击打印按钮后把按钮隐藏了的 码, : private sub printbtn_click() printbtn.visible=false …… frm1.printform end sub

话题：VB 6.0 如何打印form 窗口

问题详情：一个简单的命令!谢谢。就是打印窗口显示的所有内容

回答：form.printMe.print

话题：按金字塔形状 打印 辉三角vb

问题详情：急求VB 码

回答：Private Sub Form_click() n=Val()'阶数 ReDim a(n + 1, n + 1), b(n + 1, n + 1) Cls k='间距,建议选择偶数 For i=1 To n Print String((n - i) * k / 2 + 1, " "); For j=1 To i a(i, 1)=1 a(i, i)=1 a(i + 1, j + 1)=a(i, j) + a(i, j + 1) b(i, j)=Trim(Str(a(i, j))) Print b(i, j); String(k - Len(b(i, j)), " "); Next j Print Next i End Sub

话题：VB问题:Form1.PrintForm

问题详情：Form1.PrintForm 可以实现打印功能,如果想要打印出来后面加上

回答：故事的方法应该可以实现打印。但,打印的内容位置却没有指定,这个时候打出来的位置会和图象重叠(我猜的)。Printer.CurrentX=100 '横坐标Printer.CurrentY=100 '纵坐标Printer.Print "评 签名:" & Format(Date, "yyyy年mm月d天")加上坐标控制,应该可以解决此问题!祝你好运!

参考回答：Private Sub Form_Click()Form1.Print "评 签名:" & Format(Date, "yyyy年mm月d天")End Sub就能实现你要的结果。你是实现打印的。那么就是Private Sub Form_Click()Form1.PrintForm "评 签名:" & Format(Date, "yyyy年mm月d天")End Sub

话题：VB中怎么在窗体打印中换行?

问题详情：1600=40*40 而1601不是完全平方数 我写的 Private Sub Form_

回答：方法1:print a*a & vbCrLf 方法2:用text控件,将其multiline属性设置为true scorllbars属性设置为3 将print a*a 改成:text1.text=text1.text & a*a & vbcrlf 请参考下面的常数定义,选择合适的常数 常数 等于 描述 vbCrLf Chr(13) + Chr(10) 回车符与换行符结合 vbCr Chr(13) 回车符 vbLf Chr(10) 换行符 vbNewLine Chr(13) + Chr(10) 指定的新行字符;适用于当前 vbNullChar Chr(0) 值为 0 的字符 vbNullString 值为 0 的字符串 用来调用外部过程;与长度为的字符串 ("") 不同 vbObjectError -214221504 定义的错误号应当大于该值,例如: Err.Raise Number=vbObjectError + 1000 vbTab Chr() Tab 字。 vbBack Chr() 退格字

话题：vb鼠标单击窗体用#打印一个V字

问题详情：编写程序实现鼠标单击窗体时在窗体上用“#”号打印出一个V字

回答：Private Sub Form_click()For i=1 To 10Print Tab(i); "#"; Tab(2 * 10 - i + 1); "#"NextEnd Sub