Greetings, CC'ing Support here - they probably will want to see this if I'm off track here.
Wasn't quite following want you need to do, do you want to only print a
particular part of the screen - or "delete" from the print the
information you do not want.
What you're doing now is printing <everything> - which is a one-liner
like you have.
Now it is possible to actually remove data from the connected to webpage
prior to printing it.
Note the below is for example only and only deletes the text and the
numbering for the cells probably isn't right
But it illustrates the concept
If Web1.Find("Eligibility<LEGEND>@Beneficiary Eligibility Verification")
Then
i = 1
Do Until IsNull(Web1.table(i, 1))
If Web1.table(i, 1) = "What I don't want to print" Then
Web1.Find Web1.table(i, 1) & "<TD>@Beneficiary Eligibility
Verification")
'This actually "deletes" the text from the page.
Web1.Selected.innerText = ""
End If
i = i + 1
Loop
When you're connected to a web page, you actually have complete control
over the page, including setting / removing content.
Regards,
Thom
Regards,
Thom
Thom C. Blackwell
Product Manager
Boston Software Systems
(866) 653-5105 ex 807
www.bossoft.com <http://www.bossoft.com/>
Sign up for my weekly webinar!
<http://www.bostonworkstation.com/customer_center/special_events.aspx>
LEGAL NOTICE Unless expressly stated otherwise, this message is
confidential and may be privileged. It is intended for the addressee(s)
only. Access to this E-mail by anyone else is unauthorized. If you are
not an addressee, any disclosure or copying of the contents of this
E-mail or any action taken (or not taken) in reliance on it is
unauthorized and may be unlawful. If you are not an addressee, please
inform the sender immediately, then delete this message and empty from
your trash.
From: [email protected] [mailto:[email protected]]
Sent: Tuesday, October 20, 2009 10:28 AM
To: Talk
Subject: [talkbws] Internet Script, VB help!
I have not been working with VB very long and I get confused with this,
so can you geniuses help me out.
I have an internet script, that connects to a web page and checks
Eligibility Verification. This is what my script looks like Looking for
"Eligibility" on the page.
Script...
WaitForPage
If Web1.Find("Eligibility<LEGEND>@Beneficiary Eligibility
Verification") Then
D("RESULT") = Web1.table(1, 2) ' Eligible
Web1.WB.ExecWB OLECMDID_PRINT,
OLECMDEXECOPT_DONTPROMPTUSER
WaitForPage
End If
D.Next_
End of Script Section. This works great printing the page if it says
"Eligibility"
This is what the screen looks like.
I would like to exclude 1 eligibility. (If it looks like above)
Something like this.
If Web1.find("MediKan<TD>@Beneficiary Eligibility Verification") Then
D.Next
So, I want to look for "Eligibility" but if you find "Eligibility" &
"MediKan" Then D.Next, if you only see "Eligibility" then D("result")=
etc...
Thanks,
Bruce Broaddus
Revenue Cycle Application Analyst
Stormont-Vail Health Care
[email protected]
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
Stormont-Vail HealthCare is proud to be in the top 5 percent of
hospitals in the country honored by the American Nurses Credentialing
Center's Magnet Recognition Program.
________________________________
The information transmitted in this e-mail and in any replies and
forwards are for the sole use of the above individual(s) or entities and
may contain proprietary, privileged and/or highly confidential
information. Any unauthorized dissemination, review, distribution or
copying of these communications is strictly prohibited. If this e-mail
has been transmitted to you in error, please notify and return the
original message to the sender immediately at the above listed address.
Thank you for your cooperation.
________________________________
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
<<image001.png>>
