Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VB HELP!
Message
De
25/05/1999 17:02:06
Jim Rieck
Quicken Loans/Rock Financial/Title Sourc
Livonia, Michigan, États-Unis
 
 
À
21/05/1999 13:47:04
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00221197
Message ID:
00222669
Vues:
51
Bob,

Just to let you know I changed your logic a bit. I changed the ThisForm.Olecontrol1.ExecWB( 6, 0 ) line to ThisForm.Olecontrol1.ExecWB( 6, 2 ).
This just prints to the printer without prompting the user to select a printer. The thing I don't get is if I click on where the HTML page is displayed and press CTRL + P the print dialog screen is displayed and then if I click cancel there is no error message. . . Wierd huh?

Thanks again for the help,

Jim



>>Bob,
>>
>>THanks for the code below. It works except for one little thing. When I click cancel on the print dialog screen I get the following error: OLE Error Code 0x80040100: Trying to revoke a drop target that has not been registered.
>>
>>It sounds to me like a drag and drop issue. Have you ever come across this message?
>
>Yea... I think I saw that message once... Not really sure what it was. Perhaps somehow the control is seeing the mouse click the cancel button above it.
>>
>>any ideas, thanks
>
>You could try to disable the olecontrol1 during the print process, or lock the screen... I don't know, figured I got you 90% of the way. <g> Or, you could turn OLEDragDrop off on the browser... not sure, let me know if you come up with something.
>
>BOb
>>
>>Jim
>>
>>>>It's an ActiveX control
>>>>
>>>
>>>Ok Jim... the heck with that VB stuff... now that I know the problem, I can solve it the simple VFP way... Here is the code to put in your command click:
>>>
>>>
>>>this.Enabled = .f.
>>>Do While ThisForm.OleControl1.Busy
>>>	DoEvents()
>>>enddo
>>>ThisForm.Olecontrol1.ExecWB( 6, 0 )
>>>this.Enabled = .t.
>>>
>>>
>>>BOb
Thanks

Jim
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform