How to print a transparency Picture
-
I have a project, where I print my invoice with code like this:
With Printer .PaperSize = Papier: .ScaleMode = 6: .Orientation = Ausricht .CurrentY = RandOben .FontSize = 10 If UCase(frmAdressverwaltung.txtNName.Text) = "BARVERKAUF" Then Zeile = "" For i = 1 To 6 Printer.Print Zeile Next i Else If frmAdressverwaltung.optAnredeF.Value = True Then Zeile = "Frau" ElseIf frmAdressverwaltung.optAnredeH.Value = True Then Zeile = "Herr" ElseIf frmAdressverwaltung.optAnredeK.Value = True Then Zeile = "" ElseIf frmAdressverwaltung.optAnredeC.Value = True Then Zeile = "Firma" End If Zeile = Zeile & " " & frmAdressverwaltung.txtTitel.Text .CurrentX = Randlinks Printer.Print Zeile .FontBold = True .CurrentX = Randlinks Zeile = frmAdressverwaltung.txtNName.Text & " " & frmAdressverwaltung.txtVName.Text Printer.Print Zeile .FontBold = False Zeile = frmAdressverwaltung.txtStrasse.Text .CurrentX = Randlinks Printer.Print Zeile Printer.Print "" Zeile = frmAdressverwaltung.txtPLZ & " " & frmAdressverwaltung.txtOrt.Text .CurrentX = Randlinks Printer.Print Zeile Printer.Print "" End IfThe code goes over 100 lines in this way. - So I don't want to change the code. - Now I want to print also the logo and some text on tho the invoice It is a bmp File with the logo & text & the rest ist transparency - I tried to this with the following code:If GetSetting("VOPTNeu", "Firmendaten", "ReLogo") = "True" Then .PaintPicture LoadPicture(App.Path & "\rechnungslogo.bmp"), 2, 3, 130, 35 .CurrentY = 52 .CurrentX = Randlinks End IfBut this wan't work. Please help - Hope you understand what I mean. Yours faithfully