Search results for query: *

For the smell app I recommend common scents [tongue]

Open myFile For Input As filenum myVar = Input(LOF(filenum), filenum)

So yes it turned out the driver caused this. My printer is a cheap HP4260 that I have had for a while. I tested with several drivers and all was fine. So I guess my only question would be why would this happen? Anyway, I sincerely thank you strongm, I was not thinking along these lines (printer...

I sure can it, I will post result.

Actually this "VB60SP6-KB957924-x86-ENU.msi " is the VB6 SP6 Update...so I would have used Vs6sp6B.exe for sp6 and then the update.

SP6 That I load from VB60SP6-KB957924-x86-ENU.msi

And just to verify if I take the exact code above with added amendement I lose the 7. If I add 8 I lose 78 if I add 9 it finally wraps.

Interesting Win XP Service Pack 3

>certain fonts incorrectly causing characters to be truncated on the right I've been using EM_FORMATRANGE for years under a variety of situations (WYSIWYG printing, measuring the length of mixed font strings, etc) and never encountered this. And VB's RTB itself uses EM_FORMATRANGE to print to...

I should have posted this to the previous thread so I am going to post my response to you in that thread.

Yes, the EM_FORMATRANGE method almost does the job but it calculates certain fonts incorrectly causing characters to be truncated on the right.

Is it possible to print the contents of the printer object to a picturebox? [bigears]

strongm, my code is based mostly on this link, are you saying i am missing something from the support link?

Ok here is the situation. The code below is close "I THINK" , but I cannot seem to get the picturebox to accurately display what the printer would print with accurate margins etc.. note: everything is set to twips and as the msdn states 1440 twips = 1 logical inch so the goal is to display 1...

It appears I will need to develop a work around for this problem. Thank you both for the responses.

OK Instead of going into great detail explaining the problem I set up a quick easy example so others can test. Just follow the commented test instructions. Any help would be greatly appreciated [yinyang] 'TO TEST 'Add 2 Richtextboxes 'SET SCROLL BARS TO BOTH FOR YOUR CONVENIENCE 'Add 2...

Found this code on VB helper site, ** Before calling this sub, your code must copy the font file to the user's Fonts folder. ** Declare Function WriteProfileString Lib "Kernel" (ByVal _ lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String) As Integer...

Public Sub DisableMyFirewall(MyToggle As Boolean) Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile If MyToggle = True Then MsgBox "Your Windows Firewall will now be disabled." objPolicy.FirewallEnabled =...

not sure why the code tags didnt format but this code should do what you want.

Add 2 command buttons and paste code: Public Sub DisableMyFirewall(MyToggle As Boolean) Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile If MyToggle = True Then MsgBox "Your Windows Firewall will now be...