PW3270 - Exemplo - Macro WORD
#24
by
ERICK SOUZA
example.vbs
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