Wir haben ja XbpRTF() womit auch der Demo Editor arbeitet.
Wenn ich mir nun eine Vorlage mit Platzhalter für die Adresse mache wird ja an der Position wo der Platzhalter war die neue Adresse eingesetzt.
Nun frage ich mich wie ich das mit den Artikel Positionen mache und wie ich "freien Text" in die Vorlage bekomme ... oder alles "anhängen" ?
Frage : kann ich was an eine RTF Datei anhängen ? COPY TEXT1.RTF + TEXT2.RTF TEXT3.RTF ?
... und wo finde ich eine gute Seite mit der Beschreibung von RFT "Format Befehle" ( /TAB /PAGE ...)
Nun zu Codejock : in den Commandbar gibt es ja "Print" und "Preview".
mit CreateRichEditPrintView( RTF ) Methode kann ich den RTF String "einlesen" und dann mit PrintPreview() drucken oder Preview ... hat das jemand schon gemacht ?
Code: Alles auswählen
[Displays a RTF document in a print preview dialog (Visual Basic)]
Private Sub mnuPreviewRTFPage_Click()
Dim frmPreview As New frmPreview
Dim FreeF As Integer, sFile As String, sLayout As String
Dim Text As String
On Error Resume Next:
'XML string will be loaded from the file.
sFile = App.Path & "\PrintPreview.rtf"
FreeF = FreeFile
Text = Space(FileLen(sFile))
Open sFile For Binary As #FreeF
Get #FreeF, , Text
Close #FreeF
On Error GoTo 0
frmPreview.PrintPreview.PrintView = frmPreview.PrintPreview.CreateRichEditPrintView(Text)
frmPreview.Show vbModal
End Sub
nicht was das bedeuten soll.Open sFile For Binary As #FreeF
Get #FreeF, , Text
Close #FreeF