Replies

Thanks for the tips folks
Moving the Redim definitely tidied up the initial zero count.
Setting FS to nothing cured a problem that I had forgotten about.
I will set FileSearch to New each time.

On tha Access front, I will assume the problem lies between the keyboard and the back of the chair for a while yet.
Cheers
G

Hi Daniel
Check out microsoft knowledge base:
Article ID: Q155208

http://support.microsoft.com/support/kb/ar…FR=0&qry=Custom Lists&rnk=1&src=DHCS_MSPSS_gn_SRCH&SPR=XLW97

Cheers
Geof

I think it is a hangover from the days before table borders and we had to generate column borders …
You are obviously too young …
Cheers

G

Hi
I dont think there are enough trees for the paperless office..
I just adopt the notion that the s/ware over-rides the hardware settings. Word over-rides the Windows settings and windows over-rides the h/ware. Seems to work for me.
However I haven’t used the 4100.
Cheers
G

Hi
Dont you love printers ?
I can only suggest that you check (again !!) the device settings from Control Panel > Printers or where-ever.

I focused on the point that you made in yor post that you set up from the front panel of the printer.
Maybe I am whistling in the dark ..
Cheers
G

Hi
I am intrigued .. almost a contradiction of terms.
In an adjacent column could you assign a random number and sort on this column …

This could make use of the randbetween() function….
=randbetween(x,y)

I haven’t tried it but you would probably have to do an
EDIT>PasteSpecial>ValuesOnly .. before you sorted on Col2 as the function will automatically recalc at sort time ..

Cheers
G

Hi Bam
The ‘ was not needed.
I suspect because the linking data in the Where clause was numeric. I seem to remember something about “qualifying data” in SQL expressions and Access. ???
I dont fuly understand but I have found on occasions when querying from Word textual data has needed ‘, numeric data nothing and on yet other occasions use of + has helped.
It confuses me

Thanks for your help. You have put me onto an alternative solution which represents a big shortcut.

Geof

Hi Folks
Solved it ..

Do not need the ‘ around the {mergefield FieldName}

Thanks for clues

Geof

Hi Bam
I am trying this approach with the datasource as MS Access 97.

Things fall over with the Where clause inserted.
Error reports Word unable to re-establish DDE connection.

Database contains 2 related tables.

Without the where clause the entire related table is successfully inserted into the doc so the syntax is fine til then I guess.

Any thoughts !
Thanks

Geof

Hi Eddy
Check tis website
http://www.cpearson.com

Cheers
G

Hi
You could try a search & replace with formatting in the “standard” label document.
e.g
<>
could be replaced with <> formatted in Patatino, red, 36 pt font

Just use the standard EDIT | Replace dialog box and note at bottom centre the format button

Cheere
G

Thanks Mark
That did the trick. Oh so simple…

Geof

Hi
Is there a typo above

Shouldnt it be Ctrl+F9 to enter the field braces

Cheers
G

Hi Jody
What a nightmare.

Is there a way that you can interrogate the userinfo in the NT account database.

The following extract was given to me by a colleague. I am not a programmer nor much of a network adminstrator. The two functions interrogate the AD on my 2000 Server and returns the userFirst Name. My idea is to populate bookmarks …. I have also used a similare technique in Novell using a routine supplied by Novell consulting…
———-
Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal _
lpBuffer As String, nSize As Long) As Long

Sub whoAmI()
Dim strName As String
strName = ClipNull(GetUser())
MsgBox (strName)
End Sub

Function GetUser() As String
Dim lpUserID As String
Dim nBuffer As Long
Dim Ret As Long
lpUserID = String(25, 0)
nBuffer = 25
Ret = GetUserName(lpUserID, nBuffer)

If Ret Then
GetUser$ = lpUserID$
End If
End Function

Function ClipNull(InString As String) As String
Dim intpos As Integer

If Len(InString) Then
intpos = InStr(InString, vbNullChar)

If intpos > 0 Then
ClipNull = Left(InString, intpos – 1)
Else
ClipNull = InString
End If
End If
End Function
—————-

Perhaps the programming / NT gurus can help us further.

Regards
Geof

Greetings from NZ
I got around a similar problem by placing a template that contained the special menu items and related scripts in the startup directory

Regards
Geof