打印多列格式的文本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