Newsgroup: it.comp.lang.visual-basic
Titolo: Anteprima di Stampa

Esiste la possibilità di avere un' anteprima a video di quello che si sta 
per stampare ?
Se non utilizzo CristalReport non capisco come potrei fare...
Grazie per l' attenzione e buona giornata a tutti !
Do While Not rs.EOF
      Printer.CurrentX = 600
      Printer.CurrentY = 2300
      Printer.Print "Esempio"
       ' Creazione del modulo
      Printer.Line (500, 500)-(11000, 500), RGB(0, 0, 0)
      Printer.Line (500, 2000)-(11000, 2000), RGB(0, 0, 0)
      Printer.Line (500, 2500)-(11000, 2500), RGB(0, 0, 0)
      Printer.Line (500, 3000)-(11000, 3000), RGB(0, 0, 0)
      Printer.Line (500, 3500)-(11000, 3500), RGB(0, 0, 0)
      Printer.Line (500, 3750)-(11000, 3750), RGB(0, 0, 0)
      Printer.Line (500, 12000)-(11000, 12000), RGB(0, 0, 0)
      Printer.Line (500, 12500)-(11000, 12500), RGB(0, 0, 0)
      Printer.Line (9500, 13000)-(11000, 13000), RGB(0, 0, 0)
      Printer.Line (500, 13500)-(11000, 13500), RGB(0, 0, 0)
      Printer.Line (500, 14000)-(11000, 14000), RGB(0, 0, 0)
      Printer.Line (500, 14500)-(11000, 14500), RGB(0, 0, 0)
      Printer.Line (500, 15000)-(11000, 15000), RGB(0, 0, 0)
      Printer.Line (500, 15500)-(11000, 15500), RGB(0, 0, 0)
      Printer.Line (500, 16000)-(11000, 16000), RGB(0, 0, 0)
      Printer.Line (5500, 500)-(5500, 2000), RGB(0, 0, 0)
      Printer.Line (3500, 3500)-(3500, 12000), RGB(0, 0, 0)
      Printer.Line (6500, 3500)-(6500, 12000), RGB(0, 0, 0)
      Printer.Line (7500, 3500)-(7500, 12000), RGB(0, 0, 0)
      Printer.Line (8000, 3500)-(8000, 12000), RGB(0, 0, 0)
      Printer.Line (9500, 3500)-(9500, 12000), RGB(0, 0, 0)
      Printer.Line (2750, 12500)-(2750, 13500), RGB(0, 0, 0)
      Printer.Line (4750, 12500)-(4750, 13500), RGB(0, 0, 0)
      Printer.Line (5750, 12500)-(5750, 13500), RGB(0, 0, 0)
      Printer.Line (9500, 12500)-(9500, 13500), RGB(0, 0, 0)
      Printer.Line (9500, 14000)-(9500, 15500), RGB(0, 0, 0)
      Printer.Line (500, 500)-(500, 16000), RGB(0, 0, 0)
      Printer.Line (11000, 500)-(11000, 16000), RGB(0, 0, 0)
      Printer.CurrentX = n2
      Printer.CurrentY = n1
      Printer.Print rs!Descrizione
      Printer.CurrentX = n3
      Printer.CurrentY = n1
      Printer.Print rs!Quantità
      Printer.CurrentX = n51
      Printer.CurrentY = n1
      Printer.Print rs!Importo
      n6 = n6 + rs!Importo ' importo tot.
      n1 = n1 + 200
      rs.MoveNext
  Loop
 

Grazie per l' attenzione e buona giornata a tutti !
[ VB5-6 ]
Normalmente si usa una PictureBox che utilizza gli stessi metodi di stampa
dell'oggetto printer.
Se per esempio ti fai una routine di stampa come questa:
Sub PrintPage(ByVal Num As Integer, PrinterOut As Control)
potrai passare alla routine la stampante come argomento e se gli passi una
Picturebox opportunamente dimensionata vedrai poi comparire quello che stampi.
Non tutti i metodi della stampante sono supportati dalla PictureBox per cui
dovrai inserire istruzioni come questa:
 If TypeOf PrinterOut Is PictureBox Then   Else   Printer.NewPage
Qui trovi un esempio di GBC
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/Prnprv3.zip&ID=147
--
ciao
  Stefano