Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Text ausdrucken
Autor: Postmann
Datum: 17.03.04 10:20
Hallo Ich habe ein Problem und vielleicht kann mir jemand von euch helfen: Ich habe eine mehrzeilige Textbox, die ich ausdrucken möchte. Der Text ist beispielsweise eine Adresse, die wird von Eingebenden so Name (mit "Enter" in die nächste Zeile gedrückt) Plz Wohnort (mit "Enter" in die nächste Zeile gedrückt) Strasse (mit "Enter" in die nächste Zeile gedrückt) eingeschrieben. Beim Druck dann ist nur die erste Zeile ander angegebenen Position. Die nachfolgenden Zeilen beginnen wieder am linken äußeren Rand. Ich habe mal einen Beispielcode hier hinzugefügt (einschließlich umrechnung in mm): ----------------------------------------------------- Public Function mmToTwips(ByVal mm As Long) As Long Dim vContents As Variant Dim dTmp As Double Dim glwMeasure As Integer vContents = mm / 10 dTmp = 1440 * vContents dTmp = dTmp / 2.54 If dTmp >= 0 And dTmp <= 32767 Then mmToTwips = dTmp Else mmToTwips = 0 End If End Function ---------------------------------------------------------------------- Private Sub cmd1_Click() Printer.CurrentX = mmToTwips(25) Printer.Print txt1.Text Printer.EndDoc End Sub ----------------------------------------------------- Ich würde mich über eine schnelle hilfe sehr freuen - DANKE Postmann

Text ausdrucken	763	Postmann	17.03.04 10:20
Re: Text ausdrucken	526	Silver	17.03.04 11:20
Re: Text ausdrucken	527	Wolfgang	17.03.04 11:21
Re: Text ausdrucken	544	Postmann	17.03.04 16:23

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