Click here to Skip to main content
15,888,461 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionDeployment Demo(Trial) Program Pin
FriendlySoluations1-Oct-06 23:19
FriendlySoluations1-Oct-06 23:19 
AnswerRe: Deployment Demo(Trial) Program Pin
Christian Graus1-Oct-06 23:40
protectorChristian Graus1-Oct-06 23:40 
GeneralRe: Deployment Demo(Trial) Program Pin
Dave Sexton2-Oct-06 2:17
Dave Sexton2-Oct-06 2:17 
GeneralRe: Deployment Demo(Trial) Program Pin
Christian Graus2-Oct-06 10:34
protectorChristian Graus2-Oct-06 10:34 
GeneralRe: Deployment Demo(Trial) Program Pin
FriendlySoluations2-Oct-06 20:14
FriendlySoluations2-Oct-06 20:14 
GeneralRe: Deployment Demo(Trial) Program Pin
Christian Graus2-Oct-06 20:17
protectorChristian Graus2-Oct-06 20:17 
QuestionPlay midi file with tempo adjustment Pin
re infecta1-Oct-06 22:41
re infecta1-Oct-06 22:41 
QuestionHow to print a transparency Picture Pin
Zero-G.1-Oct-06 22:06
Zero-G.1-Oct-06 22:06 
I have a project, where I print my invoice with code like this:

<br />
    With Printer<br />
        .PaperSize = Papier: .ScaleMode = 6: .Orientation = Ausricht<br />
        .CurrentY = RandOben<br />
        .FontSize = 10<br />
        If UCase(frmAdressverwaltung.txtNName.Text) = "BARVERKAUF" Then<br />
            Zeile = ""<br />
            For i = 1 To 6<br />
                Printer.Print Zeile<br />
            Next i<br />
        Else<br />
            If frmAdressverwaltung.optAnredeF.Value = True Then<br />
                Zeile = "Frau"<br />
            ElseIf frmAdressverwaltung.optAnredeH.Value = True Then<br />
                Zeile = "Herr"<br />
            ElseIf frmAdressverwaltung.optAnredeK.Value = True Then<br />
                Zeile = ""<br />
            ElseIf frmAdressverwaltung.optAnredeC.Value = True Then<br />
                Zeile = "Firma"<br />
            End If<br />
            Zeile = Zeile & " " & frmAdressverwaltung.txtTitel.Text<br />
            .CurrentX = Randlinks<br />
            Printer.Print Zeile<br />
            .FontBold = True<br />
            .CurrentX = Randlinks<br />
            Zeile = frmAdressverwaltung.txtNName.Text & " " & frmAdressverwaltung.txtVName.Text<br />
            Printer.Print Zeile<br />
            .FontBold = False<br />
            Zeile = frmAdressverwaltung.txtStrasse.Text<br />
            .CurrentX = Randlinks<br />
            Printer.Print Zeile<br />
            Printer.Print ""<br />
            Zeile = frmAdressverwaltung.txtPLZ & " " & frmAdressverwaltung.txtOrt.Text<br />
            .CurrentX = Randlinks<br />
            Printer.Print Zeile<br />
            Printer.Print ""<br />
        End If<br />

The 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:
<br />
If GetSetting("VOPTNeu", "Firmendaten", "ReLogo") = "True" Then<br />
            .PaintPicture LoadPicture(App.Path & "\rechnungslogo.bmp"), 2, 3, 130, 35<br />
            .CurrentY = 52<br />
            .CurrentX = Randlinks<br />
        End If<br />

But this wan't work.
Please help - Hope you understand what I mean.

Yours faithfully
QuestionHow to apply a theme to the app that's different from the current OS theme Pin
Alex Feature1-Oct-06 21:01
Alex Feature1-Oct-06 21:01 
AnswerRe: How to apply a theme to the app that's different from the current OS theme Pin
Christian Graus1-Oct-06 23:42
protectorChristian Graus1-Oct-06 23:42 
AnswerRe: How to apply a theme to the app that's different from the current OS theme Pin
Dave Kreskowiak2-Oct-06 3:00
mveDave Kreskowiak2-Oct-06 3:00 
GeneralRe: How to apply a theme to the app that's different from the current OS theme Pin
Alex Feature2-Oct-06 23:08
Alex Feature2-Oct-06 23:08 
QuestionThreading, UI's and the rest of the Code Pin
Alex Feature1-Oct-06 20:24
Alex Feature1-Oct-06 20:24 
AnswerRe: Threading, UI's and the rest of the Code Pin
Christian Graus1-Oct-06 23:44
protectorChristian Graus1-Oct-06 23:44 
GeneralRe: Threading, UI's and the rest of the Code Pin
Alex Feature2-Oct-06 23:12
Alex Feature2-Oct-06 23:12 
Questionduplication of records in a Dataset Pin
viji]1-Oct-06 18:47
viji]1-Oct-06 18:47 
AnswerRe: duplication of records in a Dataset Pin
Christian Graus1-Oct-06 23:46
protectorChristian Graus1-Oct-06 23:46 
QuestionHow to set Internet Explorer Printer Page Setup etc. Paper Source, Size Using VB.NET Pin
Shakeel Anjum1-Oct-06 17:13
Shakeel Anjum1-Oct-06 17:13 
QuestionHow to Print in .Net like in VB6 Pin
Bso_Cool1-Oct-06 15:18
Bso_Cool1-Oct-06 15:18 
AnswerRe: How to Print in .Net like in VB6 Pin
Christian Graus1-Oct-06 15:44
protectorChristian Graus1-Oct-06 15:44 
QuestionHow I can Drag image and image will also move Pin
Aun62530-Sep-06 18:23
Aun62530-Sep-06 18:23 
AnswerRe: How I can Drag image and image will also move Pin
Christian Graus1-Oct-06 9:37
protectorChristian Graus1-Oct-06 9:37 
QuestionSearching word Pin
Xmen Real 30-Sep-06 18:15
professional Xmen Real 30-Sep-06 18:15 
AnswerRe: Searching word Pin
Guffa1-Oct-06 0:45
Guffa1-Oct-06 0:45 
GeneralRe: Searching word Pin
Xmen Real 1-Oct-06 4:25
professional Xmen Real 1-Oct-06 4:25 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.