| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print all pages in a Multi page userform
I have a multipage userform with 10 pages. Can someone help with the
code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print all pages in a Multi page userform
Maybe something like this:
Option Explicit Private Sub CommandButton1_Click() Dim curPage As Long Dim iCtr As Long curPage = Me.MultiPage1.Value For iCtr = 0 To Me.MultiPage1.Pages.Count - 1 Me.MultiPage1.Value = iCtr Me.PrintForm Next iCtr Me.MultiPage1.Value = curPage End Sub Alro wrote: I have a multipage userform with 10 pages. Can someone help with the code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print all pages in a Multi page userform
How about:
Private Sub CommandButton1_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Bob Umlas Excel MVP "Alro" wrote in message oups.com... I have a multipage userform with 10 pages. Can someone help with the code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print all pages in a Multi page userform
Bob Umlas wrote: How about: Private Sub CommandButton1_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Bob Umlas Excel MVP "Alro" wrote in message oups.com... I have a multipage userform with 10 pages. Can someone help with the code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan Gents Thank you for your quick response. I am getting a compile error on the ..multipage1 on both your solutions. Private Sub CommandButton172_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Regards Allan |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print all pages in a Multi page userform
Did you rename the control?
if you click on the multipage control (in design mode), then click F4, what do you see for the (Name) property in the property window. Use that. Alro wrote: Bob Umlas wrote: How about: Private Sub CommandButton1_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Bob Umlas Excel MVP "Alro" wrote in message oups.com... I have a multipage userform with 10 pages. Can someone help with the code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan Gents Thank you for your quick response. I am getting a compile error on the .multipage1 on both your solutions. Private Sub CommandButton172_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Regards Allan -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print all pages in a Multi page userform
Dave Peterson wrote: Did you rename the control? if you click on the multipage control (in design mode), then click F4, what do you see for the (Name) property in the property window. Use that. Alro wrote: Bob Umlas wrote: How about: Private Sub CommandButton1_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Bob Umlas Excel MVP "Alro" wrote in message oups.com... I have a multipage userform with 10 pages. Can someone help with the code to print all the pages.I tried me.printform but it only prints page 1. Thanks Allan Gents Thank you for your quick response. I am getting a compile error on the .multipage1 on both your solutions. Private Sub CommandButton172_Click() For i = 0 To 9 Me.MultiPage1.Value = i Me.PrintForm Next End Sub Regards Allan -- Dave Peterson Dave, Yes that has worked. Thanks for your help Allan |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Setting the print area in page set up to print 1 page wide by 2 pages tall | Excel Discussion (Misc queries) | |||
| multi-page print, but only one header | Excel Discussion (Misc queries) | |||
| I want to print multi pages on one page. | Excel Discussion (Misc queries) | |||
| Can I print 2 pages on 1 page? | Excel Discussion (Misc queries) | |||
| Hide a page in a multi page userform | Excel Programming | |||
Hybrid Mode
