VB打印透明內容

在VB6打印的時候，設置打印機的屬性Printer.FontTransparent = True可以打印出背景透明內容，但有些時候該設置不起作用，可以通過下面的方法解決。

 

Private Declare Function SetBkMode Lib "gdi32"  _

      (ByVal hdc As Long, ByVal nBkMode As Long) As Long


      Private Const TRANSPARENT = 1     '透明

      Private Const OPAQUE = 2    '不透明



Private Sub Form_Click()


       Printer.Print ""

       Printer.Line (0,0)-(10000, 2000), &HC0C0C0, BF

       Printer.CurrentX = 0

       Printer.CurrentY = 0

       Printer.FontTransparent = True

       'Correctly sets the background mix mode to transparent

       iBKMode = SetBKMode(Printer.Hdc, TRANSPARENT)

       Printer.Print "Printer.FontTransparent = " & Printer.FontTransparent

       Printer.FontTransparent = False

       'Correctly sets the background mix mode to opaque

       iBKMode = SetBKMode(Printer.Hdc, OPAQUE)

       Printer.Print "Printer.FontTransparent = " & Printer.FontTransparent

       Printer.EndDoc


    End Sub


原文：MS