2010/10/21

VB6 讓 printer 直印/橫印

Dim Printer As New Printer If Printer.Height > Printer.Width Then Printer.Orientation = vbPRORPortrait Else Printer.Orientation = vbPRORLandscape End If Printer.Print("Hello") Printer.EndDoc()


vbPRORPortrait 1 文件會垂直列印。頁面的高度大於寬度。
vbPRORLandscape 2 文件會水平列印。頁面的寬度大於高度。 

Ref: 
http://msdn.microsoft.com/zh-tw/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer.orientation(v=VS.90).aspx

printer 其他 method 及屬性:
http://msdn.microsoft.com/zh-tw/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer_members(v=VS.90).aspx

沒有留言:

張貼留言