Replies

The only other instances I find when worksheets don’t copy is when they’re in some state that it is ‘greyed out’. For instance when actively editting a text box, or when a dialog is up but hidden behind the window. I’d be tempted to try range(“A1”).select to make sure

I’m guessing as I don’t get this kind – but its a UTF-8 encoding that is not being encoded or decoded properly. I pick the ? is an “escape” character

http://en.wikipedia.org/wiki/UTF-8%5B/url%5D

By ‘hangs up’ do you mean
* ‘locks up’ as in will not do anything and has to be killed
* Disconnects a phone line from a dial-up modem (although I’m assuming not if you have a cable modem)
* Just doesn’t download

If the later, what happens if you click send/receive?

As a general rule of computing, any recent change is normally the cause, or has triggered a ‘feature’ that was already lurking. However, I’m hard pressed to see how this is the cause unless you’re dealing with an ISP network time-out that is being lost due to a firewall activity or some other ‘deep’ issue.

By ‘hangs up’ do you mean
* ‘locks up’ as in will not do anything and has to be killed
* Disconnects a phone line from a dial-up modem (although I’m assuming not if you have a cable modem)
* Just doesn’t download

If the later, what happens if you click send/receive?

As a general rule of computing, any recent change is normally the cause, or has triggered a ‘feature’ that was already lurking. However, I’m hard pressed to see how this is the cause unless you’re dealing with an ISP network time-out that is being lost due to a firewall activity or some other ‘deep’ issue.

Best of luck. I found the codes by trial and error by recording macros as I set the trays

Sub SetLetterHead()
‘
‘ Macro written 11/10/2004 by Andrew Ollivier
‘
‘ Sets appropriate upper tray, prints, then resets

Dim FirstTrayOn
Dim OtherTray

‘ Assume that it is one of the Minoltas

FirstTrayOn = wdPrinterUpperBin
OtherTray = 508

‘ Correct for the HP8100 Printer

If InStr(1, ActivePrinter, “HP8100”) > 1 Then
FirstTrayOn = wdPrinterLowerBin
OtherTray = wdPrinterLargeCapacityBin
End If

‘ Or the HP 4200 one

If InStr(1, ActivePrinter, “4200”) > 1 Then
FirstTrayOn = 264
OtherTray = 263
End If

‘ OK done – set the page for letterhead

With ActiveDocument.PageSetup
.FirstPageTray = FirstTrayOn
.OtherPagesTray = OtherTray
End With

‘ Print the current document

ActiveDocument.PrintOut

‘ and reset the printer to plain

With ActiveDocument.PageSetup
.FirstPageTray = OtherTray
.OtherPagesTray = OtherTray
End With

End Sub

Best of luck. I found the codes by trial and error by recording macros as I set the trays

Sub SetLetterHead()
‘
‘ Macro written 11/10/2004 by Andrew Ollivier
‘
‘ Sets appropriate upper tray, prints, then resets

Dim FirstTrayOn
Dim OtherTray

‘ Assume that it is one of the Minoltas

FirstTrayOn = wdPrinterUpperBin
OtherTray = 508

‘ Correct for the HP8100 Printer

If InStr(1, ActivePrinter, “HP8100”) > 1 Then
FirstTrayOn = wdPrinterLowerBin
OtherTray = wdPrinterLargeCapacityBin
End If

‘ Or the HP 4200 one

If InStr(1, ActivePrinter, “4200”) > 1 Then
FirstTrayOn = 264
OtherTray = 263
End If

‘ OK done – set the page for letterhead

With ActiveDocument.PageSetup
.FirstPageTray = FirstTrayOn
.OtherPagesTray = OtherTray
End With

‘ Print the current document

ActiveDocument.PrintOut

‘ and reset the printer to plain

With ActiveDocument.PageSetup
.FirstPageTray = OtherTray
.OtherPagesTray = OtherTray
End With

End Sub

At work, at a user’s request, I created a small macro that was linked to a button.
Effectively it was a “Print this letter with letterhead as the first page” command

It
* Set the letterhead (using page setup (first page tray selected))
* Issued a print
* Reset the letterhead to plain (page setup again)

They’re very happy with it.

The downside is that the printer codes for trays are absolutely unique to particular printers – I built the Macro by simply recording the above sequence on the target printer. I later modified it to detect the particular printer involved, and change the tray codes appropriately so that I could apply it universally in my installation. I can post a copy after the weekend if you’re interested.

At work, at a user’s request, I created a small macro that was linked to a button.
Effectively it was a “Print this letter with letterhead as the first page” command

It
* Set the letterhead (using page setup (first page tray selected))
* Issued a print
* Reset the letterhead to plain (page setup again)

They’re very happy with it.

The downside is that the printer codes for trays are absolutely unique to particular printers – I built the Macro by simply recording the above sequence on the target printer. I later modified it to detect the particular printer involved, and change the tray codes appropriately so that I could apply it universally in my installation. I can post a copy after the weekend if you’re interested.

Hans As always – little gems of knowledge. I like the look of the Compact on Close option

Hans As always – little gems of knowledge. I like the look of the Compact on Close option

Charlotte
Thanks for trying. I find that in my debugging efforts I’ve lost the failed code (.close) and replaced it with working code.
I don’t really want to replicate the failure anymore. I’m now a happy camper (on this issue) at least but I’m sure you’ll see more intriguing posts from me as I stumble through the minefield.

Charlotte
Thanks for trying. I find that in my debugging efforts I’ve lost the failed code (.close) and replaced it with working code.
I don’t really want to replicate the failure anymore. I’m now a happy camper (on this issue) at least but I’m sure you’ll see more intriguing posts from me as I stumble through the minefield.

Charlotte
It may be difficult bcause the DB links with ODBC to a Foxpro database. When I get back to work I’ll see what I can do.

I have a Macro that has a series of

OPENFORM
OPENQUERY
OPENQUERY
….
statements

The OPENFORM is the dialog (and is done first thing, then dismissed)
The processing ‘seems’ to work fine until I eventually close Access (ten minutes later) – it goes into a 100% CPU loop at that point.
(I can avoid the lockup by using MsgBox twice in VBA, instead of the form)
I could post the form and its code if that helped.

Charlotte
It may be difficult bcause the DB links with ODBC to a Foxpro database. When I get back to work I’ll see what I can do.

I have a Macro that has a series of

OPENFORM
OPENQUERY
OPENQUERY
….
statements

The OPENFORM is the dialog (and is done first thing, then dismissed)
The processing ‘seems’ to work fine until I eventually close Access (ten minutes later) – it goes into a 100% CPU loop at that point.
(I can avoid the lockup by using MsgBox twice in VBA, instead of the form)
I could post the form and its code if that helped.

If the first cell is in row 2

=”TCL/” & TEXT(ROW()-1,”000″)&”/05″

will do it – drag down as needed