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