File transfer

M

Mr Rubble

Please help

In moving files from one computer to another, the pages appear shrunk (all
row heighths are smaller even though the number of height did not change)
when opened on the new computer. Both have Office 2000 and I tried using the
file transfer wizard and moving them manually. I have six year of data that
is screwed up!!
 
E

Earl Kiosterud

Mr Rubble,

It isn't likely that the file transfer messed it up, but that some
difference in the systems is causing this problem.

It isn't clear what your problem is. Are you talking about the appearance
on the screen (as opposed to print or print preview)? Are there more rows
shown (and columns too) total, shown on the screen? If so, compare your
zoom %. It's in the Standard Toolbar. Or your screen resolution may be
different. That would also change the size of the Excel screen stuff, like
toolbars, etc. Get to your Windows Control Panel - Display, and compare the
screen settings (800X600, 1024X768, etc.).
 
D

Don Guillett

If you don't want to change resolution between computers, this might be of
interest. I have a myzoom range defined on each worksheet and use this to
match the resolution of the active computer.

Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Dim tstRange As Range
Dim curWks As Worksheet
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
With wks
If wks.Name <> "Parts" And wks.Name <> "Kits" Then
Set tstRange = Nothing
On Error Resume Next
Set tstRange = .Range("myzoom")
On Error GoTo 0
If tstRange Is Nothing Then
'do nothing
Else
.Select
tstRange.Select
ActiveWindow.Zoom = True
.Range("a1").Select
End If
End If
End With

Next wks
Sheets("cover").Select
Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub
 
Top