Dim s As String
    s = Chr$(27) + "P$" + Chr$(27) + "PP" + vbCrLf + "BeginPage();" + vbCrLf
    s = s + "SetPageSize(700,200);" + vbCrLf
    s = s + "DrawText(20,60,1,0,""<f=6><b>PRUEBAS DE IMPRESION"");" + vbCrLf
    s = s + "EndPage()" + vbCrLf + Chr$(27) + "P#" + vbCr + Chr$(4) + vbCrLf
    Dim arr() As Byte
    arr = StrConv(s, vbFromUnicode)
    resp = wclClient.Write(arr)