Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Aber jetzt... so richtig heftig und gut!
Autor: Enrico Hahn
Datum: 17.06.01 14:51
Erst mal ein Großes Lob an deine Hilfsbereitschaft, dein Code Funktioniert auch na ja teilweise ich habe selber aber nach langen hin und her eine Bessere ( auch besser für die Optik ) Möglichkeit gefunden! Mit folgendem Code bin ich in der Lage die Textinformationen so auszudrucken wie sie im Programm zusehen sind das sehr gut für die Optik: Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd&, ByVal wMsg&, ByVal _ wParam%, ByVal lParam As Any) As Long Const EM_GETLINE = &HC4 Const EM_GETLINECOUNT = &HBA Const MAX_CHAR_PER_LINE = &H100 Private Sub Image_print_Click() Dim Mldg, Stil, Titel, Antwort, Text1 Mldg = "AKTUELLE FOLGE DRUCKEN" Stil = vbYesNo + vbDefaultButton2 Titel = "sti" Antwort = MsgBox(Mldg, Stil, Titel) If Antwort = vbYes Then Call Drucke Else Text1 = "Nein" End If End Sub Sub Drucke() Printer.ScaleMode = 6 Printer.CurrentX = 15 Printer.CurrentY = 20 Printer.Font.Size = 12 Printer.FontName = Arial Printer.Font.Bold = True Printer.Print "TOS" & " "; Label1.Caption & " " & Label2.Caption Printer.Font.Bold = False Printer.CurrentX = 15 Printer.Print Label3.Caption & " " & Label4.Caption Printer.CurrentX = 15 Printer.Print Label5.Caption & " " & Label6.Caption Printer.Print "" Printer.CurrentX = 15 Printer.Print Label7.Caption + vbCrLf Printer.Font.Size = 9 Call Drucke1 Printer.Print "" Printer.Font.Size = 12 Printer.CurrentX = 15 Printer.Print Label8.Caption & " " & Label9.Caption Printer.CurrentX = 15 Printer.Print Label10.Caption & " " & Label11.Caption Printer.Print "" Printer.CurrentX = 15 Printer.Print Label12.Caption + vbCrLf Printer.CurrentX = 15 Printer.Font.Size = 9 Call Drucke2 End Sub Sub Drucke1() Dim Max&, X& Max = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0&) - 1 List1.Clear For X = 0 To Max Printer.ScaleMode = 6 Printer.CurrentX = 15 Printer.FontName = Arial Printer.Print GetLine(Text1, X) Next X End Sub Sub Drucke2() Dim Max&, X& Max = SendMessage(Text2.hwnd, EM_GETLINECOUNT, 0, 0&) - 1 List1.Clear For X = 0 To Max Printer.ScaleMode = 6 Printer.CurrentX = 15 Printer.FontName = Arial Printer.Print GetLine(Text2, X) Next X Printer.EndDoc Image_print.Enabled = False End Sub Function GetLine(Text As TextBox, ByVal Line&) As String Dim Lo%, Hi%, Result&, Buff$ Lo = MAX_CHAR_PER_LINE And &HFF Hi = Int(MAX_CHAR_PER_LINE / &H100) Buff = Chr$(Lo) & Chr$(Hi) & Space$(MAX_CHAR_PER_LINE - 2) Result = SendMessage(Text.hwnd, EM_GETLINE, Line, Buff) GetLine = Left$(Buff, Result) End Function

Ausdrucken von Textboxen & Labels	145	Enrico Hahn	15.06.01 17:51
Re: Ausdrucken von Textboxen & Labels	939	unbekannt	15.06.01 18:23
Re: Ausdrucken von Textboxen & Labels	119	Enrico Hahn	15.06.01 19:05
Re: Ausdrucken von Textboxen & Labels	1.033	unbekannt	15.06.01 19:30
Re: Ausdrucken von Textboxen & Labels	115	Enrico Hahn	15.06.01 19:43
Re: Ausdrucken von Textboxen & Labels	113	Enrico Hahn	16.06.01 13:09
Hier ein Beispiel...	955	Dieter	16.06.01 13:42
Re: Hier ein Beispiel...	121	Enrico Hahn	16.06.01 13:55
Re: Hier ein Beispiel...	1.058	Dieter	16.06.01 14:05
Re: Hier ein Beispiel...	113	Enrico Hahn	16.06.01 14:22
Re: Hier ein Beispiel...	958	Dieter	16.06.01 14:40
Aber jetzt... so richtig heftig und gut!	997	Dieter	17.06.01 12:53
Re: Aber jetzt... so richtig heftig und gut!	123	Enrico Hahn	17.06.01 14:51
Re: Aber jetzt... so richtig heftig und gut!	939	Dieter	17.06.01 15:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen