打印的问题？在线等...

Question

在VB的FORM1中，我想只打印里面的LABEL标签，我该怎么着？
请教各位。

Answer 1

Private Sub Command1_Click()
    
    Dim a As Control
    
    For Each a In Controls
        If TypeOf a Is Label Then printer.Print a.Caption
    Next
    printer.enddoc
 
End Sub

Answer 2

Option ExplicitPublic Sub PrintPreview(objPrint As Object)
    objPrint.ScaleMode = vbMillimeters   '为毫米为单位
    objPrint.CurrentX = 8
    objPrint.CurrentY = 10
    objPrint.Print "标签1内容"
    
    objPrint.CurrentX = 8
    objPrint.CurrentY = 18
    objPrint.Print "标签2内容"
    
    If objPrint Is Printer Then objPrint.EndDoc
End SubPrivate Sub Command1_Click()
    '打印预览时传PICTURE控件
    PrintPreview Picture1
    '打印时传PRINTER打印对象
    PrintPreview Printer
End Sub

Answer 3

第一种方法好像不行。我不是只打印标签的内容，还要打印标签整个样子。但不要FORM1模板

Answer 4

问问题要准确表达你的要求。否则，浪费你的时间，也浪费别人的时间。Private Sub Command1_Click()    Dim f As Form
    Dim a As Control
    
    Set f = New Form1
    For Each a In f.Controls
        If Not (TypeOf a Is Label) Then a.Visible = False
    Next
    f.Show
    f.PrintForm
    Set f = Nothing
    
End Sub