zoom problem ??

[donbowyer]

(Excel 2003 on WinXP with SP2)
My workbook has 8 columns, of different widths, which precisely fit the
window.
There are - say - 20 rows of data.
The zoom is set to 100%.
If I copy all this data to a new book with the same amount of window space
and set the same zoom and column settings, the result is different.
The 8 columns no longer fit the window, but exceed it by 2 columns and yet,
notionally, the column widths are the same.
As far as I know, all settings for the original and target workbooks are the
same.
Can anyone explain what is wrong here please.

 

[FSt1]

hi
don't know. wild guess..."new workbook".....hummmm....
check font size in new workbook.

my thoughts
regards
FSt1

 

[donbowyer]

Unfortunately, the font sizes are the same.

 

[Susan]

same computer? same visual settings (screen size,etc.)?
i have this problem when i bring stuff home & then bring it back to
work - even tho home & work are set @ 800x600, the screen at home is
larger.
hth
susan

 

[donbowyer]

Hi Susan
Yes. Same PC same screen res.
In fact I can't find anything yet that's different.
There has to be something "embedded" in my original that's causing the
phenomenon and I.m still looking!

 

[Susan]

the zoom doesn't change?
what happens if you set it to 100% zoom (even tho it's already
supposedly there)? does it fix the problem?
if it did, you could add that to a little auto_open macro that would
automatically adjust it upon opening.
maybe look @ custom views.
but it's probably nothing that simple.

if you need to duplicate the workbook, rather than copying & pasting,
you could try either a) copying the workSHEET (instead of the data)
into a new workbook, or just saving the whole workbook under a 2nd
name.
sorry, that's all the idea's i've got.
susan

 

[donbowyer]

Hi Susan
I tried those of your suggestions which my program would allow, but still to
no avail.
However, rather than copy over the raw data to the target workbook then
programatically reformat each column width, instead I tried doing it in one
go, using:-
Range("A4", Cells(Rows.Count, 1).End(xlUp)).Resize(, 7).Copy
Selection.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
....and this works fine for me,
but I'm not sure it will help you
Thanks for your inputs