PW3270 - Exemplo - Macro WORD
Add new snippet

#24 by 7caf4932d47836dcd7dccd85065686b8?s=40&d=identicon ERICK SOUZA
← project snippets
example.vbs
raw
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 
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