用vb能不能实现定位打印，窗口有2个标签和1个编辑框，能不能把标签和编辑框内容打印在打印纸的格子上
怎么能实现这种功能？

有没有打印代码学习一下？

标签和文本框打印的位置不在指定的位置，怎么调整？

谢谢！！！

[此贴子已经被作者于2018-4-16 20:38编辑过]

想学vb有没有入门的书介绍一下？

打印方向是纵向改成横向，代码怎么写
按照这个方法打印的字体不是很清楚，还有标签后面的点（应该是窗体上的点）和文本框的半个框子打印出来了

[此贴子已经被作者于2018-4-17 13:46编辑过]

请问你这种方法打印清楚吗？

Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape

Printer 对象常数  

打印机颜色模式  
常数 值 描述  
vbPRCMMonochrome 1 单色输出  
vbPRCMColor 2 彩色输出  

双面打印  
常数 值 描述  
vbPRDPSimplex 1 单面打印  
vbPRDPHorizontal 2 双面水平打印  
vbPRDPVertical 3 双面垂直打印  

打印方向  
常数 值 描述  
vbPRORPortrait 1 文档打印以纸的窄边作顶部  
vbPRORLandscape 2 文档打印以纸的宽边作顶部  

打印质量  
常数 值 描述  
vbPRPQDraft -1 草稿打印质量  
vbPRPQLow -2 低级打印质量  
vbPRPQMedium -3 中等打印质量  
vbPRPQHigh -4 高级打印质量  

PaperBin 属性  
常数 值 描述  
vbPRBNUpper 1 从上层纸盒进纸  
vbPRBNLower 2 从下层纸盒进纸  
vbPRBNMiddle 3 从中间纸盒进纸  
vbPRBNManual 4 等待手动插入每页纸  
vbPRBNEnvelope 5 从信封进纸器进纸  
vbPRBNEnvManual 6 从信封进纸器进纸；但要等待手动插入  
vbPRBNAuto 7 （缺省方式）从当前缺省纸盒进纸  
vbPRBNTractor 8 从拖拉进纸器供纸  
vbPRBNSmallFmt 9 从小型进纸器进纸  
vbPRBNLargeFmt 10 从大型纸盒进纸  
vbPRBNLargeCapacity 11 从大容量进纸器进纸  
vbPRBNCassette 14 从附加的卡式纸盒进纸  


PaperSize 属性  
常数 值 描述  
vbPRPSLetter 1 信笺， 8 1/2 x 11 英寸  
vbPRPSLetterSmall 2 +A611 小型信笺， 8 1/2 x 11 英寸  
vbPRPSTabloid 3 小型报， 11 x 17 英寸  
vbPRPSLedger 4 分类帐， 17 x 11 英寸  
vbPRPSLegal 5 法律文件， 8 1/2 x 14 英寸  
vbPRPSStatement 6 声明书，5 1/2 x 8 1/2 英寸  
vbPRPSExecutive 7 行政文件，7 1/2 x 10 1/2 英寸  
vbPRPSA3 8 A3, 297 x 420 mm  
vbPRPSA4 9 A4, 210 x 297 mm  
vbPRPSA4Small 10 A4小号， 210 x 297 mm  
vbPRPSA5 11 A5, 148 x 210 mm  
vbPRPSB4 12 B4, 250 x 354 mm  
vbPRPSB5 13 B5, 182 x 257 mm  
vbPRPSFolio 14 对开本， 8 1/2 x 13 英寸  
vbPRPSQuarto 15 四开本， 215 x 275 mm  
vbPRPS1&H14 16 10 x 14 英寸  
vbPRPS11x17 17 11 x 17 英寸  
vbPRPSNote 18 便条，8 1/2 x 11 英寸  
vbPRPSEnv9 19 #9 信封， 3 7/8 x 8 7/8 英寸  
vbPRPSEnv10 20 #10 信封， 4 1/8 x 9 1/2 英寸  
vbPRPSEnv11 21 #11 信封， 4 1/2 x 10 3/8 英寸  
vbPRPSEnv12 22 #12 信封， 4 1/2 x 11 英寸  
vbPRPSEnv14 23 #14 信封， 5 x 11 1/2 英寸  
vbPRPSCSheet 24 C 尺寸工作单  
vbPRPSDSheet 25 D 尺寸工作单  
vbPRPSESheet 26 E 尺寸工作单  
vbPRPSEnvDL 27 DL 型信封， 110 x 220 mm  
vbPRPSEnvC3 29 C3 型信封， 324 x 458 mm  
vbPRPSEnvC4 30 C4 型信封， 229 x 324 mm  
vbPRPSEnvC5 28 C5 型信封， 162 x 229 mm  
vbPRPSEnvC6 31 C6 型信封， 114 x 162 mm  
vbPRPSEnvC65 32 C65 型信封，114 x 229 mm  
vbPRPSEnvB4 33 B4 型信封， 250 x 353 mm  
vbPRPSEnvB5 34 B5 型信封，176 x 250 mm  
vbPRPSEnvB6 35 B6 型信封， 176 x 125 mm  
vbPRPSEnvItaly 36 信封， 110 x 230 mm  
vbPRPSEnvMonarch 37 信封大王， 3 7/8 x 7 1/2 英寸  
vbPRPSEnvPersonal 38 信封， 3 5/8 x 6 1/2 英寸  
vbPRPSFanfoldUS 39 U.S. 标准复写簿， 14 7/8 x 11 英寸  
vbPRPSFanfoldStdGerman 40 德国标准复写簿， 8 1/2 x 12 英寸  
vbPRPSFanfoldLglGerman 41 德国法律复写簿， 8 1/2 x 13 英寸  
vbPRPSUser 256 用户定义

[此贴子已经被作者于2018-4-23 11:41编辑过]

谢谢！！！

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