VISUALIZADOR DE RELATORIOS NO PRINTER

MICROSCHEME 10/07/2010 20:43:29
#347016

Gente, é o seguinte:

Já ví muita gente indagando a respeito de visuzalizadores de impressão para o Objeto Printer, e decidi que é possível dentro de
um form do próprio vb a visuzalização de impressão através de pictures criadas dinamicamente.

Meu código abaixo cria as pictures dinamicamente, mas estou conseguindo na label apresentar o nome da última picture criada
mas na mesma picture não tô conseguindo imprimir, e o intuito é criar uma picture, fazer a impressão nela pra visualização e no final
da picture, havendo a necessidade de mais informações outra picture é criada e continua a impressão, até terminado as informações.

Meu código:

Option Explicit
Private WithEvents PicPreview As PictureBox
Dim intNumPicture As Integer
Dim intDeslocamento As Integer

Private Sub Command1_Click()
DoEvents
Set PicPreview = Controls.Add([Ô]VB.Picturebox[Ô], [Ô]PicPreview[Ô] & Format(intNumPicture, [Ô]0000[Ô]), Me)

With PicPreview
.Width = 5000
.Height = 1000
.BackColor = &HFFFFFF
.Font = [Ô]Arial[Ô]
.Move 10 + intDeslocamento, 10 + intDeslocamento
.Visible = True
End With

PicPreview.CurrentX = 200
PicPreview.CurrentY = 200
PicPreview.Print PicPreview.Name

intDeslocamento = intDeslocamento + 20
Label1.Caption = PicPreview.Name
intNumPicture = intNumPicture + 1
End Sub

Private Sub Command2_Click()
Unload FrmVariousPrintPreview
End Sub

Private Sub Form_Load()
intDeslocamento = 0
intNumPicture = 1
End Sub


é nessa linha que tá faltando algo pra identificar a picture para a impressão (tô esquecendo de algo):

PicPreview.Print PicPreview.Name

Se alguém puder ajudar, agradeço e quando estiver funcionando disponho geral.

Blz . . .