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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!