How many pages will be printed?

[Shawn777]

Is there any way of getting the number of pages that are to be printed in VBA.

 

[Ron de Bruin]

Hi Shawn777

See how I use it here
http://www.rondebruin.nl/print.htm#not

TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

 

[Shawn777]

I've been working with that code and it doesn't produce the correct pages to
be printed. It use to work months ago - now I changed the macro and it
doesn’t work right.

Below is my code, as you can see I've been trying different options with no
luck.

Sub PrintAreaDirect()

'Dim strWB As String
'Dim strName As String
'Dim strFiller As String
'Dim lngCount As Long

'strWB = "[" & ActiveWorkbook.Name & "]"
'strName = Worksheets(23).Name
'strFiller = "get.document(50,""" & strWB & strName & """)"
'lngCount = Application.ExecuteExcel4Macro(strFiller)

Sheets("DIRECT").Select

Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!Enlarge"
Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!ReduceDir"
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$199"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlLandscape
.FitToPagesWide = 1
End With
Range("H1").Select

MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") & " pages will
be printed."

' If ExecuteExcel4Macro("GET.DOCUMENT(50)") <> 1 Then
Rows("59:59").Select
Range("B59").Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.Run "PrintPage"
' Else
' Application.Run "PrintPage"
' End If

End Sub

 

[Ron de Bruin]

Hi Shawn

Oops I posted it first in your other thread

Difficult to see the problem from here.
Do you have the problem also with more workbooks ?


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

I've been working with that code and it doesn't produce the correct pages to
be printed. It use to work months ago - now I changed the macro and it
doesn’t work right.

Below is my code, as you can see I've been trying different options with no
luck.

Sub PrintAreaDirect()

'Dim strWB As String
'Dim strName As String
'Dim strFiller As String
'Dim lngCount As Long

'strWB = "[" & ActiveWorkbook.Name & "]"
'strName = Worksheets(23).Name
'strFiller = "get.document(50,""" & strWB & strName & """)"
'lngCount = Application.ExecuteExcel4Macro(strFiller)

Sheets("DIRECT").Select

Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!Enlarge"
Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!ReduceDir"
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$199"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlLandscape
.FitToPagesWide = 1
End With
Range("H1").Select

MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") & " pages will
be printed."

' If ExecuteExcel4Macro("GET.DOCUMENT(50)") <> 1 Then
Rows("59:59").Select
Range("B59").Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.Run "PrintPage"
' Else
' Application.Run "PrintPage"
' End If

End Sub

Hi Shawn777

See how I use it here
http://www.rondebruin.nl/print.htm#not

TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

 

[Shawn777]

Yes, I had it in another spreadsheet and thought it was working fine. I
tested it the other day and it did the same thing this one is. It may have
always been a problem that snuck by.

I’m going on X-mas vacation soon, so I may not respond for about two weeks
when I get back.

I was going over that webpage you sent and may have found an answer to
another problem I have. This one needs to work first though.

Hi Shawn

Oops I posted it first in your other thread

Difficult to see the problem from here.
Do you have the problem also with more workbooks ?


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

I've been working with that code and it doesn't produce the correct pages to
be printed. It use to work months ago - now I changed the macro and it
doesn’t work right.

Below is my code, as you can see I've been trying different options with no
luck.

Sub PrintAreaDirect()

'Dim strWB As String
'Dim strName As String
'Dim strFiller As String
'Dim lngCount As Long

'strWB = "[" & ActiveWorkbook.Name & "]"
'strName = Worksheets(23).Name
'strFiller = "get.document(50,""" & strWB & strName & """)"
'lngCount = Application.ExecuteExcel4Macro(strFiller)

Sheets("DIRECT").Select

Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!Enlarge"
Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!ReduceDir"
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$199"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlLandscape
.FitToPagesWide = 1
End With
Range("H1").Select

MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") & " pages will
be printed."

' If ExecuteExcel4Macro("GET.DOCUMENT(50)") <> 1 Then
Rows("59:59").Select
Range("B59").Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.Run "PrintPage"
' Else
' Application.Run "PrintPage"
' End If

End Sub

Hi Shawn777

See how I use it here
http://www.rondebruin.nl/print.htm#not

TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


Is there any way of getting the number of pages that are to be printed in VBA.

 

[Shawn777]

I believe I figured out how it worked before and not now. When I insert a
page break it works correctly. When I reset all the page breaks and the
computer inserts the page breaks accordingly it doesn't count all of the
pages and comes up short on the page count.

Is there another way of counting pages?

Hi Shawn

Oops I posted it first in your other thread

Difficult to see the problem from here.
Do you have the problem also with more workbooks ?


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

I've been working with that code and it doesn't produce the correct pages to
be printed. It use to work months ago - now I changed the macro and it
doesn’t work right.

Below is my code, as you can see I've been trying different options with no
luck.

Sub PrintAreaDirect()

'Dim strWB As String
'Dim strName As String
'Dim strFiller As String
'Dim lngCount As Long

'strWB = "[" & ActiveWorkbook.Name & "]"
'strName = Worksheets(23).Name
'strFiller = "get.document(50,""" & strWB & strName & """)"
'lngCount = Application.ExecuteExcel4Macro(strFiller)

Sheets("DIRECT").Select

Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!Enlarge"
Application.Run "'RCA_RB3 06-122-S2 all crafts_rev 2 WBU
macros.xls'!ReduceDir"
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$199"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlLandscape
.FitToPagesWide = 1
End With
Range("H1").Select

MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") & " pages will
be printed."

' If ExecuteExcel4Macro("GET.DOCUMENT(50)") <> 1 Then
Rows("59:59").Select
Range("B59").Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.Run "PrintPage"
' Else
' Application.Run "PrintPage"
' End If

End Sub

Hi Shawn777

See how I use it here
http://www.rondebruin.nl/print.htm#not

TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


Is there any way of getting the number of pages that are to be printed in VBA.