How to print a multiline textbox

anv: Tried that from andrea vb's site and it did not work. I don't want to center the text, I want to wrap it when it prints.

vb Elmar: Do not understand comments in German and the code sample does not print.

Bob: No, you don't understand the question. It is how to print the multiline textbox

Bryan: I get an error when running your code on line
Textbox=
invalid outside procedure
--------------------------------------------------------------------
I did solve the problem and found code on Microsoft's website and will ask to PAQ this question:
This is the correct code to print a mulitline textbox:
add a label1 to form, 1 command, 1 textbox .


      #If Win32 Then
       Private Declare Function SendMessageAsLong Lib "user32" _
       Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
       ByVal wParam As Long, ByVal lParam As Long) As Long
       Private Declare Function SendMessageAsString Lib "user32" _
       Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
       ByVal wParam As Long, ByVal lParam As String) As Long
       Dim Buffer As String
       Dim resizing As Integer
       Const EM_GETLINE = 196
       Const EM_GETLINECOUNT = 186
      #Else
       Private Declare Function SendMessage% Lib "user" _
       (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam As Any)
       Dim Buffer As String
       Dim resizing As Integer
       Const EM_GETLINE = &H400 + 20
       Const EM_GETLINECOUNT = &H400 + 10
      #End If
       Const MAX_CHAR_PER_LINE = 80  ' Scale this to size of text box.

      Private Sub Form_Load()
         ' Size form relative to screen dimensions.
         ' Could define all in move command but recursive definition causes
         ' extra paints.
         frmworkorder.Width = Screen.Width * 0.8
         frmworkorder.Height = Screen.Height * 0.6
         frmworkorder.Move Screen.Width \ 2 - frmworkorder.Width \ 2, _
            Screen.Height \ 2 - frmworkorder.Height \ 2
      End Sub

      Private Sub Form_Resize()
         resizing = -1      ' Global  flag for fGetLineCount function call.
         ' Dynamically scale and position the controls in the form.
         ' This code also is executed on first show of form.
         'txtDescription.Move 0, 0, frmworkorder.Width, frmworkorder.Height \ 2
         txtDescription.SelStart = txtDescription.SelStart
         Command1.Move frmworkorder.Width \ 2 - Command1.Width \ 2, _
            frmworkorder.Height - frmworkorder.Height \ 4
         aGetLineCount.Move frmworkorder.Width \ 2 - Command1.Width \ 2, _
            txtDescription.Height
         X% = fGetLineCount() ' Update to reflect change in text-box size.
         resizing = 0
      End Sub

      Private Sub Command1_Click()
   
         OK = -1
         NL$ = Chr$(13) + Chr$(10)
         ndx& = fGetLineCount&()
               For N& = 1 To ndx&
                  Buffer = fGetLine(N& - 1)
                  Printer.Print Buffer       ' ...or print to the screen.
               Next N&
                                  ' Print a line...
            Buffer = fGetLine(Val(response$) - 1)
            Printer.Print Buffer       ' ...or print to the screen.
   
         Printer.EndDoc
      End Sub

      Private Function fGetLine$(LineNumber As Long)
      ' This function fills the buffer with a line of text
      ' specified by LineNumber from the text-box control.
      ' The first line starts at zero.
      byteLo% = MAX_CHAR_PER_LINE And (255)  '[changed 5/15/92]
      byteHi% = Int(MAX_CHAR_PER_LINE / 256) '[changed 5/15/92]
      Buffer$ = Chr$(byteLo%) + Chr$(byteHi%) + Space$( _
          MAX_CHAR_PER_LINE - 2)
      #If Win32 Then
       X = SendMessageAsString(txtDescription.hWnd, EM_GETLINE, LineNumber, Buffer$)
      #Else
       X = SendMessage(txtDescription.hWnd, EM_GETLINE, LineNumber, Buffer$)
      #End If
      fGetLine$ = Left$(Buffer$, X)
      End Function

      Private Function fGetLineCount&()
       ' This function will return the number of lines
       ' currently in the text-box control.
       ' Setfocus method illegal while in resize event,
       ' so use global flag to see if called from there
       ' (or use setfocus before this function call in general case).
       #If Win32 Then
        lcount = SendMessageAsLong(txtDescription.hWnd, EM_GETLINECOUNT, 0, 0)
       #Else
        lcount = SendMessage(txtDescription.hWnd, EM_GETLINECOUNT, 0&, 0&)
       #End If
        aGetLineCount.Caption = "GetLineCount = " + Str$(lcount)
        fGetLineCount& = lcount
      End Function

      Private Sub txtDescription_Change()
         X% = fGetLineCount() '* Update label to reflect current line
      End Sub