大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net窗体打印字 vba窗体打印

VB上如何打印窗体指定位置的内容?

VB可以用CurrentX、CurrentY 属性实现定位打印。用ScaleMode 属性确定打印机对象坐标的度量单位。

目前创新互联已为超过千家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、献县网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

CurrentX、CurrentY 属性,返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直

(CurrentY) 坐标。

ScaleMode 属性,当使用图形方法或调整控件位置时,返回或设置一个值,该值指示对象坐标的度量单位。

具体实现代码:

Option Explicit

Dim X As Long

Dim y As Long

Dim fnt As Variant

Dim txt As String

Dim dy As Variant

Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)

Printer.CurrentX = X

Printer.CurrentY = y

Printer.FontSize = fnt

Printer.Print txt

End Function

Private Sub Command1_Click()

Printer.ScaleMode = 6 '以mm定位

Printer.CurrentX = 10

Printer.CurrentY = 20

fnt = 12

txt = "YD(0)"

dy = prnt(X, y, fnt, txt)

Printer.EndDoc

End Sub

vb中怎样在窗体打字

VB6.0可以将显示在容器前的标签控件的BackStyle 属性,设置为0使其透明而不遮挡后面的图片内容。

BackStyle 属性,返回或设置一个值,它指定 Label 控件或 Shape 控件的背景是透明的还是非透明的。

代码实例:

Private Sub Form_Load()

Label1.FontSize = 22

Label1.ForeColor = vbWhite

Label1.BackStyle = 0

End Sub

vb.net 怎么用print打印字符串到窗口?

vb的函数已经不适合vb.net了,想学vb,得装个vb6。用vb.net的话,使用Debug.WriteLine("hello world"),可以在输出窗口查看到这个信息,这是最简单的,想直接写窗体就得多写几行代码了,具体搜索一下

怎样用热敏打印机把vb.net窗体内文本框内容打印出来

用PrintForm控件,在Visual Basic PowerPacks项目列表中vb2008 SP1以后版本就有了,下面是代码

Imports System.Drawing.Printing

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'先设置打印页面的页边距

With Me.PrintForm1

Dim myMargins As New Margins '页边距设置信息是存放在这个Margins类型的对象中的

With myMargins '分别设置上下左右边距,

.Left = 12

.Right = 12

.Top = 12

.Bottom = 12

End With

.PrinterSettings.DefaultPageSettings.Margins = myMargins '把myMargins对象赋给PrintForm1的设置属性

End With

Me.Button1.Visible = False '这个是在打印的时候隐藏打印按钮

Me.PrintForm1.Form = Me '设置要打印的窗体

Me.PrintForm1.Print() '调用打印窗体方法

Me.Button1.Visible = True '再把隐藏的打印按钮显示出来

End Sub


网站名称:vb.net窗体打印字 vba窗体打印
本文来源:http://dzwzjz.com/article/dddhscj.html
在线咨询
服务热线
服务热线:028-86922220
TOP