Si me Genera la vista previa, pero me muestra los elementos al reves.
Por ejemplo:
Tengo dos elementos, una picturebox y un Label. El label enfrente.
[URL=http://imageshack.us/photo/my-images/696/vistaprevia1.png/][IMG]http://img696.imageshack.us/img696/3894/vistaprevia1.png[/IMG][/URL]
[URL="http://imageshack.us/photo/my-images/696/vistaprevia1.png/"]Imagen Vista Previa 1[/URL]
Pero en la vista previa o imprimir, el label lo muestra al fondo.
[URL=http://imageshack.us/photo/my-images/820/vistaprevia2.png/][IMG]http://img820.imageshack.us/img820/466/vistaprevia2.png[/IMG][/URL]
[URL="http://imageshack.us/photo/my-images/820/vistaprevia2.png/"]Imagen Vista Previa 2[/URL]
Una solucion era enviar el label al fondo, pero mi problema es que son mas de 20 elementos los que quiero mostrar.
Codigo:
Código:
'Boton de Vista Previa
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
PrintPreviewDialog1.Document = Me.PrintDocument1
PrintPreviewDialog1.Document.DefaultPageSettings.Landscape = True
PrintPreviewDialog1.ShowDialog()
End Sub
'Genera Vista Previa del TabControl
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bmp As Bitmap = New Bitmap(Me.TabControl1.TabPages(0).Width, Me.TabControl1.TabPages(0).Height)
Me.TabPage1.DrawToBitmap(bmp, New Rectangle(0, 0,Me.TabPage1.Width, Me.TabPage1.Height))
Me.TabPage1.DrawToBitmap(bmp, TabPage1.Bounds)
e.Graphics.DrawImage(bmp, 0, 0)
bmp.Dispose()
End Sub
