print af forms med multipage

hvad med noget som:

For i = 0 To MultiPage1.Count - 1
        'Use index (numeric or string)
    MultiPage1.Value = i
    UserForm1.PrintForm
  Next i

Har prøvet dit forslag.
Det virker kun delvist, sikkert pga de mange sider jeg har.

Setup som følger ('*' = de sider som skrives ud med dit script):

Userform1
  Multipage 1
    Page 1
      Multipage 3
          Page 1 *
          Page 2
    Page 2
      MultiPage 2
          Page 1 *
          Page 2
          Page 3
    Page 3 *

Hvordan får jeg printet alle siderne ud ?
kan jeg evt. bestemme at en side ikke skrives ud, hvis der ikke ser skrevet noget ?

så må det være:

For i = 0 To MultiPage1.Count - 1
        'Use index (numeric or string)
    MultiPage1.Value = i
    If MultiPage1.Value = 0 Then
      For j = 0 To MultiPage2.Count - 1
        MultiPage3.Value = j
        UserForm1.PrintForm
      Next j
    End If
    If MultiPage1.Value = 1 Then
      For j = 0 To MultiPage3.Count - 1
        MultiPage2.Value = j
        UserForm1.PrintForm
      Next j
    End If
    If MultiPage1.Value = 2 Then
      UserForm1.PrintForm
    End If
  Next i
 
mht. styring af print ved manglende indhold, må du lave en test på de komponenter du anvender. Anvend  _change eventen til at sætte en boolean (en pr. page) (anvend et array så du kan indexere efter sidenr. og test så på denne inden PrintForm metoden kaldes.

mvh Anders

Hej Anders

Jeg ændrede det til følgende, for at det fungerede perfekt:
Tak for info vedr. array og _change. Det bliver en anden dag jeg går i gang med det.

For i = 0 To MultiPage1.Count - 1
        'Use index (numeric or string)
    MultiPage1.Value = i
    If MultiPage1.Value = 0 Then
      For j = 0 To MultiPage3.Count - 1
        MultiPage3.Value = j
        userform1.PrintForm
      Next j
    End If
    If MultiPage1.Value = 1 Then
      For j = 0 To MultiPage2.Count - 1
        MultiPage2.Value = j
        userform1.PrintForm
      Next j
    End If
    If MultiPage1.Value >= 2 Then
      userform1.PrintForm
    End If
Next i

jeg takker for hjælpen

Ja, sådan er det når man skriver uden at teste. Selvfølgelig skal den Multipage man itererer over også være den der anvendes ved tildelingen af propertiens værdi.

Husk lige at acceptere et svar :-)

mvh

Accept af svar er gjort :O)

Jeg takker endnu engang, da det har givet mig lidt ny ballast i VB.
Det havde taget temmelig lang tid før jeg var nået så langt med scriptet.

mvh