Visual Basic - como generar vista previa!!!!

buenas tardes a todos, bien yo tengo un programa en el cual le voy a emplear el data report para que imprima los datos de las tablas de las base de datos , bien lo que yo quiero saber es como generar la vista previa(para que muestre la hoja con los datos que se van a imprimir) antes de imprimir dichos datos ok si alguien me puede ayudar se agradece saludos a todos

Mira para mandar la vista preliminar desde un DataReport solo tienes que llamar al siguiente metodo:

ReportFichaPreinscripcion.Show

En este ejemplo, mi DataReport se llama ReportFichaPreinscripcion y llamo al metodo Show que me muestra la vista preliminar de mi reporte, tienes que tomar en cuenta que Visual Basic toma de manera predeterminada la impresora que tengas y su configuración de página por lo que si te marca error es que el diseño de tu reporte es mas grande que el tamaño de hoja predeterminada ya sea de forma vertical u horizontal.

muchas gracias por la ayuda saludos....

Hola:

Quiero crear una macro para word cuya función es ejecutar la vista previa al 10 %.
Si lo sabeis por favor contestarme. Es urgente

Muchas gracias

No entiendo bien tu pregunta.

Pero por ejemplo:

Dim documento As Word.Application
Set documento = CreateObject("Word.Application")

If Grilla_New.Rows > 1 Then
If Gl_Canal_de_venta = "" Then
Gl_Canal_de_venta = "F"
End If
Select Case Gl_Canal_de_venta
Case "F"
Producto = App.Path & "\doc\Bienvenida.doc"
Case "S"
Producto = App.Path & "\doc\Carta Bienvenida_sodimac.doc"
End Select
For i = 1 To Grilla_New.Rows
If Grilla_New.Rows = i Then
i = i - 1
MsgBox " Finalización Exitosa de la impresión de " & i & " Cartas ", 64, " Sistema Garantía Extendida"
Exit For
End If

documento.Documents.Open Producto, , True
documento.Visible = True

Grilla_New.Row = i
Grilla_New.Col = 16
documento.Documents.Item(1).Bookmarks.Item("nombre").Range.Text = Grilla_New.Text

Grilla_New.Col = 17
documento.Documents.Item(1).Bookmarks.Item("direccion").Range.Text = Grilla_New.Text

Grilla_New.Col = 18
documento.Documents.Item(1).Bookmarks.Item("comuna").Range.Text = Grilla_New.Text

Grilla_New.Col = 9
documento.Documents.Item(1).Bookmarks.Item("Boleta_producto").Range.Text = Grilla_New.Text

Grilla_New.Col = 11
documento.Documents.Item(1).Bookmarks.Item("boleta").Range.Text = Grilla_New.Text

documento.ActiveDocument.PrintOut
documento.ActiveDocument.Close False

Next i
documento.Quit wdDoNotSaveChanges
Set documento = Nothing
End If

Esta es la impresion para una carta, que se encuentra creada en la red, y segun datos de la grilla es lo que muestra.

Espero te sirva...