Option Explicit
Private Sub Form_Load()
Dim LineWidth As Long

' Sätter upp Form och Command button
Me.Caption = "Rich Text Box WYSIWYG Utskrift exempel"
Command1.Move 10, 10, 600, 380
Command1.Caption = "&Print"

' Sätter fonten till Arial för bästa resultat
RichTextBox1.SelFontName = "Arial"
RichTextBox1.SelFontSize = 10

' Sätter RTF attbases på skrivarens upplösning/storlek
LineWidth = WYSIWYG_RTF(RichTextBox1, 1440, 1440) '1440 Twips=1 Inch

' sätter formbredd att matchas med radbredd
Me.Width = LineWidth + 200
End Sub

Private Sub Form_Resize()
' Positionerar RTF på formem
RichTextBox1.Move 100, 500, Me.ScaleWidth - 200, Me.ScaleHeight - 600
End Sub

Private Sub Command1_Click()
' Skriver innehållet av RichTextBox med 1 inch marginal
PrintRTF RichTextBox1, 1440, 1440, 1440, 1440 ' 1440 Twips = 1 Inch
End Sub