Håller på med att skapa ett förhandsgranskningsfönster för rapporter och undrar
hur jag skall göra för att få till det om rapporten blir mer än en sida.
med printer-metoden använd ju <code>Printer.NewPage</code> men det fungerar ju inte på PictureBoxen som jag använder för att förhandsgranska rapporten.

Hur gör jag?

Skapa en kontrollaray med pictureboxar. För varje ny sida lägg till en picturebox. Gör det lätt att växla mellan sidorna oxå.

du menar så här!?

<code>Option Explicit
Private WithEvents myPic As PictureBox
Dim pNo As String, pHe As String

Private Sub Command1_Click()
Set myPic = Form1.Controls.Add("VB.PictureBox", "myPic" + (pNo))
With myPic
.Move 0, pHe, 1200, 1400
.Appearance = 0
.AutoSize = False
.AutoRedraw = False
.Visible = True
End With
pNo = pNo + 1
pHe = pHe + 1500
myPic.Print "test"
End Sub

Private Sub Form_Load()
pNo = 0
Set myPic = Form1.Controls.Add("VB.PictureBox", "myPic" + (pNo))
With myPic
.Move 0, 0, 1200, 1400
.Appearance = 0
.AutoSize = False
.AutoRedraw = False
.Visible = True
End With

pNo = pNo + 1
pHe = 1500</code>

det fungerar ju, men hur använder man då .print?
eller tänker jag totalt galet?

tack på förhand

oops sätter AutoRedraw = True
så fungerar det fint.!

Så kan man göra. Men det är enklare att lägga till en picturebox i designläg och sätta dess index till 0 eller 1. Sedan ladda ny element med:
<code>
Dim pic as PictureBox
Set pic = Picture1(Picture1.UBound + 1)
Load pic
pic.Move pic.Index * 100, pic.Index * 100
pic.Visible= true
</code>

Tack!

Jocke