Public Sub Pegatela()

    'Pega a tela do host usando GetScreen, copia no word e formata
    
    Dim pw As New clsLibHllapi
    
    pw.Connect "pw3270:A"
    
    Selection.TypeText text:=pw.GetScreen()
    Selection.TypeParagraph
    Selection.WholeStory
    Selection.Font.Name = "Courier New"
    Selection.Font.Size = 9
    
    pw.Disconnect
    
End Sub