Would it help if the question was ..... is the window inactive rather than busy. The window might or might not be the focus window (top window)
Any help would be appreciated.
Thanks.
...> 0) Then
lThreadId = GetWindowThreadProcessId(hWnd, lProcessId)
lProcessHandle = OpenProcess(&H1F0000, True, lProcessId)
'**********************************************************************
'need some routine to check if window is busy or waiting for user input...
Thanks for the clarity JTBorton.
Looking through the net I found these two websites that might give us a clue whats happening:-
http://www.devnewsgroups.net/group/microsoft.public.office.developer.outlook.vba/topic57971.aspx
Try specifying the local host. Set objOutlook =...
The code should work with or without Outlook being open. The routine creates a reference to Outlook but does not need it to be open. It sounds like your receiving the error message because of some other issue - I tried to investigate what the error message was actually reporting but couldn't...
Assuming you save your file before, you could use code similar to this for creating an e-mail without sending (assuming your e-mail client is MS Outlook aswell) ......
Sub create_email_for_editing()
'This routine will require "Tools\References" to "Microsoft Outlook X.X Object Library"
Dim...
...but its similar logic :-
Public Type PRINTER_INFO_9
pDevmode As Long ' Pointer to DEVMODE
End Type
Public Type DEVMODE
dmDeviceName As String * 32
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer...
...As Long
StartTime As Long
UntilTime As Long
Status As Long
cJobs As Long
AveragePPM As Long
End Type
Public Type DEVMODE
dmDeviceName As String * 32
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer...
I found changing my two lines that call "GetPrinter" to access 9 seems to stop the "work first time only" effect. It consistently doesn't change the paper tray now without error !!
GetPrinter(hPrinter, 9, 0, 0, nBytesNeeded)
Do I not have the right authority to change the printer settings ...
...As Long
StartTime As Long
UntilTime As Long
Status As Long
cJobs As Long
AveragePPM As Long
End Type
Public Type DEVMODE
dmDeviceName As String * 32
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer...
Hello everyone,
I have a table "TREND" that has data like this :-
WEEK LOCN COST
=== ==== =====
45........A......10
46........A......12
47........A......15
45........B......18
46........B......16
47........B......11
45........C......13
46........C......14
47........C......10
How do I...
...depending on how you 'use' your sheet its possible this may return the wrong column. If you experience this issue you can use this line instead that may be more reliable.
columns_used = ws.Cells.Find(What:="*", SearchDirection:=xlPrevious, _ SearchOrder:=xlByColumns).Column
Enjoy,
TopJack
Never one to give up easily. With some usefull help from Jon Peltier (check out his website - its got good content). He has discovered that in terms of Excel menus you can select "Chart/Chart Type/Standard Types" and check "Default Formatting" and this will force the chart back to allowing the...
In Excel 2003 I'm creating a very simple area chart with a legend placed to the right of the plot area. If I move the legend to say bottom of the plot area (right mouse click and "Format Legend/Placement/Bottom") the plot area itself automatically resizes to maximise the visibility. This is good...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.