Hello KillerSheep,
Is this what you're looking for:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Option Explicit
Public Const WM_USER = &H400
Private Const EM_SETTARGETDEVICE = (WM_USER + 72)
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal LParam As Long) As Long
Public Enum ViewModes
Default = 0
WordWrap = 1
WYSIWYG = 2
End Enum
Const EM_FORMATRANGE As Long = WM_USER + 57
'** Set View Mode
Public Sub SetViewMode(ByVal ViewMode As ViewModes)
Select Case ViewMode 'Set View Mode
Case 0 'No Wrap
SendMessageLong rtfText.hWnd, EM_SETTARGETDEVICE, 0, 1
Case 1 'Word Wrap
SendMessageLong rtfText.hWnd, EM_SETTARGETDEVICE, 0, 0
Case 2 'WYSIWYG
On Error Resume Next
SendMessageLong rtfText.hWnd, EM_SETTARGETDEVICE, Printer.hdc, Printer.Width
End Select
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
By