Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ränder
Autor: sebastian
Datum: 29.10.01 13:52
also probiers mal bei dir: Private Sub drucken_Click() ' Aktuelle Datensatz drucken Screen.MousePointer = 11 With rtfPrint ' Dokument laden (ggf. Pfad anpassen) rtfPrint.LoadFile "C:Eigene DateienSerienbriefBrief.rtf" ' Ränder links und rechts .SelStart = 0: .SelLength = Len(.Text) .SelIndent = Printer.ScaleX(25, vbMillimeters, vbTwips) .SelRightIndent = Printer.ScaleX(25, vbMillimeters, vbTwips) .SelStart = 0 End With ' Dokument laden (ggf. Pfad anpassen) rtfPrint.LoadFile "C:Eigene DateienSerienbriefBrief.rtf" ' Platzhalter ersetzen strReplace "#FIRMA#", firma.Text strReplace "#ANREDE#", anrede.Text strReplace "#ABTEILUNG#", abteilung.Text strReplace "#TITEL#", titel.Text strReplace "#ANREDE2#", anrede2.Text strReplace "#STRASSE/PF#", strasse.Text strReplace "#NACHNAME#", nachname.Text strReplace "#VORNAME#", vorname.Text strReplace "#FUNKTION#", position.Text strReplace "#PLZ#", PLZ.Text strReplace "#ORT#", ort.Text strReplace "#LAND#", land.Text ' ggf. weitere Steuerzeichen hier einfügen ' ... ' Und losdrucken rtfPrint.SelPrint Printer.hDC Screen.MousePointer = 0 End Sub bei mir geht es net. MFG Moonwalker

kurz nochmal an Dieter: Ränder	80	sebastian	29.10.01 13:08
Re: kurz nochmal an Dieter: Ränder	349	Dieter	29.10.01 13:43
Ränder	71	sebastian	29.10.01 13:52
Re: Ränder	303	Dieter	29.10.01 14:04
Ränder	57	sebastian	29.10.01 14:11
NEIN! NEIN! NEIN! (oT)	304	Dieter	29.10.01 14:12
ok, ok !!!!	63	sebastian	29.10.01 14:22

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