Listado 11.1
Envío de un informe a la impresora. Private Sub Imprimir() Dim miInforme As New CrystalReport1() miInforme.PrintToPrinter(1, True, 0, 0) End Sub