Under File > Page Setup, choose the Page Tab. There is a scaling option so that you can fit the output to x pages wide by y pages tall. If it's a multi-page document and you just want to fit the width, set the "y pages tall" to something that exceeds your needs.
You can try using the CodeName property.
Here is a little code that lists all of the sheet names and associated code names:
Sub ListSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
MsgBox ws.Name & vbCrLf & ws.CodeName
Next ws
End Sub
VB6
I am trying to display a picture in an Image control. The picture is stored in an Access table as an OLE object. I am trying to use recordset.fields(i) to get the object, which may be part of the problem. Any ideas?
You probably need to create the package with the latest version of the files. I had this problem incorporating the Outlook library without any difficulty. I think the only problem you may have will be using functions that are only available in the newer version. You may still want to wait for...
Just realized you are in the wrong forum. You should post this question in the Microsoft: Windows XP forum. Just hit the browse forums and you'll find it.
You'll need to open Normal.dot and change the setting. If you still have trouble, you can simply remove the file and Word will create a new default template when you open the application.
Try this:
Sub RefreshAllPivotTables()
Dim ws As Worksheet
Dim pt As PivotTable
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next
Next
Set pt = Nothing
Set ws = Nothing
End Sub
I am assuming you're using 4GL:
/***********************************************/
/* Open Excel Application */
/***********************************************/
DEF VAR lReturnCode AS INTEGER NO-UNDO.
PROCEDURE ShellExecuteA EXTERNAL "SHELL32.DLL":
DEF INPUT...
You will need to trap the error. Here is a quick example:
On Error Resume Next
TryAgain:
pt = ThisDrawing.Utility.GetPoint(, "Pick the Point: ")
If Err.Number <> 0 Then
Err.Clear
GoTo TryAgain
End If
On Error Goto ErrHndlr
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.