PRINTER

Public Sub Paragrafo(obj As Object, ByVal txt As String, Optional Margem As Byte) 
'Rotina que imprime textos com paragrafo 
'Recebe o Texto a ser impresso 
'Retorno:executa impressão com quebra de linha 

Static Pos As Integer 
Static Para As String 
Static Word As String 
     
'Margem esquerda 
If Not IsNumeric(Margem) Then Margem = 1 
     

  obj.CurrentX = Margem + 1 'Margem da primeira linha 
     
'Inicia impressao do arquivo texto 
  Do While Len(txt)  0 
   
   'Pega o proximo paragráfo 
    Pos = InStr(txt, vbCrLf) 
         
    If Pos = 0 Then 
       Para = txt 
       txt = "" 
    Else: Para = Left$(txt, Pos - 1) 
       txt = Mid$(txt, Pos + 2) 
    End If 
         
   'Imprime o parágrafo 
    Do While Len(Para)  0 
     'Pega a proxima palavra. 
      Pos = InStr(Para, " ") 
      If Pos = 0 Then 
         Word = Para 
         Para = "" 
      Else 
         Word = Left$(Para, Pos) 
         Para = Mid$(Para, Pos + 1) 
      End If 
       
      'Imprime a palavra 
       If (obj.CurrentX + obj.TextWidth(Word)) = (obj.ScaleWidth - 0.5) Then 
          'Ve se a palavra se adequa a pagina 
           obj.Print Word; 
           
       Else 
          'Inicia nova linha 
           obj.Print 
           obj.CurrentX = Margem + 1 'Margem da linha seguinte 
           obj.Print Word; 
      End If 
       
   Loop 
'Finaliza o parágrafo com uma nova linha em branco 
  obj.Print 
'Margem esquerda 
  obj.CurrentX = Margem + 1 'Margem da linha seguinte 
  Loop 
End Sub