print access report

[GUARO]

Hi gurus.

Hopefully someone has done this already.

I have a report on an access DB, the reports takes two arguments ( dates) and they shows the result.

I want to print this report, it does not have to show or preview anywhere, I want to print the report directly to the printer using VB.net.



can someone help,please

Thanks a bunch for any help

[GUARO]

AnyOne?

please

[r0k3t]

How are you formatting this report? If it is going into a datagrid I have some code that will print it for you - sends it straight to the default printer but it works...

[GUARO]

Thanks R

No it is not going into a datagrid, I have a report already made in access, it takes two arguments(dates) and I would like to print, send it directly to the printer, no preview,no open, nada, just directly to the default printer, all this from VB

Thanks a bunch

[GUARO]

R.

can you help or anyone else?

Thanks a bunch

[frederik]

Ok ... em.. Let me redirect you to the topic I made about this.

clicky

Ask RobDog888 if you still don't understand, all credits for this code go to him.

And here's some code:

Option Explicit On 
Option Strict On
Imports Microsoft.Office.Interop


Public Class Form1
    Inherits System.Windows.Forms.Form



#Region " Windows Form Designer generated code "

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfdrukken.Click

        Dim moApp As Access.Application
        Dim acViewPreview As Access.AcView

        Try
            moApp = DirectCast(GetObject(, "Access.Application"), Access.Application)
        Catch ex As Exception
            If TypeName(moApp) = "Nothing" Then
                moApp = DirectCast(CreateObject("Access.Application"), Access.Application)
            Else
                MessageBox.Show(ex.Message, "VB/Office Guru™ Access Demo", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If
        End Try

        moApp.Visible = True
        moApp.OpenCurrentDatabase("C:\Database)
        moApp.RunCommand(Access.AcCommand.acCmdAppMaximize)
        moApp.DoCmd.Maximize()
        moApp.DoCmd.SetWarnings(False)


        moApp.DoCmd.OpenReport("reportYouNeedToPrint", acViewPreview)
        moApp.CloseCurrentDatabase()

    End Sub
End Class