打印多列格式的文本VB6

Question

我需要打印格式的文本像下面的图片中，我怎么能实现这一目标在VB6，因为VB6的打印对象是不是该这样

的数据我需要打印友好由方框表示的非相关

Answer 1

这不是很困难的。您可以使用ScaleLeft，ScaleWidth，CurrentX，并CurrentY属性来设置，其中打印的页开始。在这种情况下，您可能还需要将定位属性设置为vbPROPortrait。使用这些定位属性，并设置所需的字体和样式，然后致电Printer.Print

此方法将在页面上绘制4个框。玩（x，y）坐标或硬编码数字来改变尺寸。如果您不希望打印机从此方法打印页面并从别处调用Printer.EndDoc，请删除.EndDoc语句。为充分VB6打印机对象文档可在http://msdn.microsoft.com/en-us/library/aa443915%28v=vs.60%29.aspx

Private Sub DrawBox() 

    With Printer 
     .ScaleMode = vbTwips 
     lngScaleWidth = .ScaleWidth 
     lngScaleHeight = .ScaleHeight 
     Printer.Line (.ScaleLeft + lngMargin, .ScaleTop + lngMargin)-(lngScaleWidth/2 - (100 + lngMargin * 2), lngScaleHeight/2 - (100 + lngMargin * 2)), lngColor, B 
     Printer.Line (lngScaleWidth/2 + (100 + lngMargin * 2), .ScaleTop + lngMargin)-(.ScaleWidth - lngMargin, lngScaleHeight/2 - (100 + lngMargin * 2)), lngColor, B 
     Printer.Line (.ScaleLeft + lngMargin, lngScaleHeight/2 + (100 + lngMargin * 2))-(lngScaleWidth/2 - (100 + lngMargin * 2), .ScaleHeight - lngMargin), lngColor, B 
     Printer.Line (lngScaleWidth/2 + (100 + lngMargin * 2), lngScaleHeight/2 + (100 + lngMargin * 2))-(.ScaleWidth - lngMargin, .ScaleHeight - lngMargin), lngColor, B 
     .EndDoc 
    End With 

End Sub 

找到以下示例代码演示了一些定位和其它性质的。

Dim lMargin as Integer 
lMargin = 200 

With Printer 
    .FontBold = True 
    .FontItalic = False 
    .CurrentY = .CurrentY + (3 * .TextHeight(App.ProductName)) 
    .CurrentX = lLeftMargin 
    .FontName = "Arial" 
    .FontSize = 11 
    Printer.Print "Date " & strTransDate 
End With