| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How many pages will be printed?
Is there any way of getting the number of pages that are to be printed in VBA.
|
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How many pages will be printed?
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 "Shawn777" wrote in message ... Is there any way of getting the number of pages that are to be printed in VBA. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How many pages will be printed?
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 doesnt 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 Befo=ActiveCell Application.Run "PrintPage" ' Else ' Application.Run "PrintPage" ' End If End Sub "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... Is there any way of getting the number of pages that are to be printed in VBA. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How many pages will be printed?
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 "Shawn777" wrote in message ... 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 doesnt 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 Befo=ActiveCell Application.Run "PrintPage" ' Else ' Application.Run "PrintPage" ' End If End Sub "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... Is there any way of getting the number of pages that are to be printed in VBA. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How many pages will be printed?
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. Im 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. "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... 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 doesnt 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 Befo=ActiveCell Application.Run "PrintPage" ' Else ' Application.Run "PrintPage" ' End If End Sub "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... Is there any way of getting the number of pages that are to be printed in VBA. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How many pages will be printed?
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? "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... 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 doesnt 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 Befo=ActiveCell Application.Run "PrintPage" ' Else ' Application.Run "PrintPage" ' End If End Sub "Ron de Bruin" wrote: 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 "Shawn777" wrote in message ... Is there any way of getting the number of pages that are to be printed in VBA. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| number of pages will be printed | Excel Discussion (Misc queries) | |||
| Column names on all printed pages | Excel Worksheet Functions | |||
| Watermark on all printed pages in Excel | Excel Discussion (Misc queries) | |||
| i would like that my first line to appear in all printed pages | Excel Discussion (Misc queries) | |||
| headers across printed pages | Excel Worksheet Functions | |||
Linear Mode
