Get number of pages to be printed - before print

[Les Stout]

Hi all, is it at all possible to get the number of pages to be printed
with code before you actually print, a si would like to give the user a
warning of the number of pages to be printed & then perhaps an option of
the number of pages to be printed.


Thanks in advance,


Les Stout

 

[Rody Meulman]

Solution from KeepItcool (from a Dutch tread):
tread: http://tinyurl.com/d827j

Sub PapierHier()
Const cFml = "GET.DOCUMENT(50,""&O"")"
Dim ws, n&, s$


With Application
For Each ws In ActiveWorkbook.Worksheets
n = .ExecuteExcel4Macro(.Substitute(cFml, "&O", ws.Name))
s = s & n & vbTab & ws.Name & vbNewLine
Next
End With


MsgBox sMsg
End Sub




Greetz,

Rody

 

[Ron de Bruin]

Hi Less

Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

 

[Tom Ogilvy]

Demo'd from the immediate window:

? application.ExecuteExcel4Macro("Get.Document(50,""Sheet1"")")
3

Usage

numPages = application.ExecuteExcel4Macro("Get.Document(50,""Sheet1"")")


or for the activesheet

numpages = application.ExecuteExcel4Macro("Get.Document(50,)")

 

[Les Stout]

Thanks Ron, works great, maar noch ein vraag. How do you know if it is
checking for portrait or landscape ?

Les Stout

 

[Les Stout]

Hi Tom & Ron, have answered my own question by trying it out, i see that
it takes whatever the printer setting you have used.
Just a further question is it the function (50)that tells it what to
look for ? If so, were can one get a list of functions that can be used
?

Les Stout

 

[Ron de Bruin]

Hi Less

See
http://www.microsoft.com/downloads/...6b-7485-437a-819b-0f446f74ed81&DisplayLang=en

 

[Les Stout]

Dankie Ron lekker aand.

Les Stout

 

[Ron de Bruin]

Graag gedaan