rapport access meerdere keren printen

[MJJBROEKHUI]

Ik heb in access een rapport gemaakt. Deze roep ik op via een formulier. Vervolgens zie ik de print preview en print ik dit formulier 20x (bijvoorbeeld) uit.

Is het ook mogelijk om direct een x aantal keer rechtstreeks te printen via het formulier.

Ik heb gezocht, maar ik kan hier omtrent niet vinden met het commando DoCmd.OpenReport

Dank.

 

[Bartuls]

Daarvoor heb je het printerobject. Zie http://msdn2.microsoft.com/en-us/library/Aa139946(office.10).aspx

 

[Harry46]

Een manier om rapport aantal malen af te drukken:

    Dim iAantal          As Integer
    Dim sRapport         As String

    sRapport = "HierNaamVanHetRapport"
    DoCmd.OpenReport sRapport, acViewPreview, , , acHidden
    'eventueel Where filter toevoegen, acHidden weg laten om afdrukvoorbeeld te zien
    iAantal = Val(InputBox("aantal malen afdrukken", "Rapport afdrukken", 1))
    If iAantal > 0 Then
        DoCmd.SelectObject acReport, sRapport
        DoCmd.PrintOut , , , , iAantal
    End If
    DoCmd.Close acReport, sRapport

 

[MJJBROEKHUI]

bedankt voor je antwoord, maar het werkt niet helemaal optimaal.

Ik werk met een HP LaserJet 9000 PCL 6. Dubbelzijdig printen en nieten. Dit heb ik als standaard ingesteld bij paginainstelling van rapport.

Ik print het document van 9 pagina's twee maal. De printopdracht komt in scherm. Hij loopt eerst voor printopdracht 1 pagina 1 tm 9 door en vervolgens doet hij voor printopdracht 2 hetzelfde. Echter, het rapport wordt in één maal afgedrukt. Pagina 1 van twee document staat op achterzijde van pagina 9 van eerste document. Vervolgens niet hij het rapport niet los, maar als één geheel.