Afdrukken van een rapport met kopie

Status
Niet open voor verdere reacties.
G

Geertvdb

Gebruiker
Lid geworden
12 jan 2005
Berichten
121
Misschien is de vraag al eerder gesteld maar ik kon er niets over vinden,
Ik zoek een manier om een rapport af te drukken met een kopie en dat er dan op het kopie rapport kopie staat. (mijn kennis van VBA is minimaal)

Geert
 
Geert,

als je vba kennis minimaal is.
Maak dan een kopie van je rapport en plaats daarop een label "Kopie"
Druk bij de afdruk van je rapport, eerst je originele rapport en vervolgens het rapport waarop je Kopie hebt geplaatst.
 
Dat is niet wat ik zoek want het zijn soms wel 10 of meer per dag en dan is dat wat omslachtig. maar bedankt voor je reactie.

Geert
 
Laatst bewerkt:
Geert, dit is niet omslachtig lees nog eens goed mijn voorstel.

je hebt nu een rapport met de naam bv rptRapportGewoon
Maak van dit rapport een kopie, en plaats in het ontwerp van dit rapport een label "KOPIE", sla dit rapport op met de naam bv. rptRapportKopie.

Waarschijnlijk druk jij nu je rapport af via een drukknop op je formulier.
Wel plaats nu bij die drukknop, bij de gebeurtenis BijKlikken de volgende code.

DoCmd.OpenReport "rptRapportGewoon"
DoCmd.OpenReport "rptRapportKopie"

Zo wordt telkens je origineel rapport afgedrukt en vervolgens je rapport met Kopie op.
 
Het zit toch wat moeilijker in elkaar dan ik dacht.
Voordat het rapport afgedrukt wordt komt het op het scherm en dan kan je het afdrukken.
Bij gebeurtenis na bijwerken staan de onderstaande codes ik denk wanneer ik nu bij klikken de andere codes zet dat er een conflict ontstaat?
Gaarne je reactie.

Geert

Private Sub cboAfdruk_AfterUpdate()
On Error GoTo Err_cboAfdruk

'eerst formulier verversen
DoCmd.GoToRecord , , acNewRec
Me.Dirty = False

'gewenste rapport tonen
Dim strRapport As String
strRapport = DLookup("Rapportnaam", "tblAfdruk", "Afdruk = '" & Me.cboAfdruk & "'")
If Me.FilterOn = True Then
'rapport op basis van de gefilterde records uit het formulierfilter
DoCmd.OpenReport strRapport, acViewPreview, , Me.Filter
Else
'volledige rapport
DoCmd.OpenReport strRapport, acViewPreview

End If

Exit_cboAfdruk:
Me.cboAfdruk = ""
Exit Sub

Err_cboAfdruk:
Resume Exit_cboAfdruk

End Sub
 
Geert,

over hoeveel rapporten gaat dit ?

Ik zou van ieder rapport een kopie maken zoals reeds aangegeven.
Gebruik als naam voor het kopierapport, de naam van het origineel met Kopie toevoegd.
bv origineel rptFactuur => rptFactuurKopie

Met jouw code zou het afdrukken dat zo zijn.
Private Sub cboAfdruk_AfterUpdate()
On Error GoTo Err_cboAfdruk

'eerst formulier verversen
DoCmd.GoToRecord , , acNewRec
Me.Dirty = False

'gewenste rapport tonen
Dim strRapport As String
strRapport = DLookup("Rapportnaam", "tblAfdruk", "Afdruk = '" & Me.cboAfdruk & "'")
If Me.FilterOn = True Then
'rapport op basis van de gefilterde records uit het formulierfilter
DoCmd.OpenReport strRapport, acViewPreview, , Me.Filter
DoCmd.OpenReport strRapport &"Kopie", acViewPreview, , Me.Filter
Else
'volledige rapport
DoCmd.OpenReport strRapport, acViewPreview
DoCmd.OpenReport strRapport &"Kopie", acViewPreview
End If

Exit_cboAfdruk:
Me.cboAfdruk = ""
Exit Sub

Err_cboAfdruk:
Resume Exit_cboAfdruk

End Sub

Veel succes.
 
Best LVT
Nogmaals bedankt voor je hulp.

Per keer gaat het om 1 rapport (het zijn nota's van een camping) waar ik als amateur
een programmatje voor gemaakt heb.

Ik heb het geprobeerd en het werkt maar het is toch moeizaam want nu komt 2x de nota op het scherm moeten dan appart gestart worden voor printen en dan gesloten worden.
Is er misschien nog een slimmere manier om dit te doen (alleen het orgineel op het scherm en dan met print beide exemplaren.

Voor de de duidelijkheid de nota komt eerst op het scherm om te zien of er geen fouten in staan en wordt dan geprint.

Geert
 
Geert,

als je acviewpreview weglaat komt het niet op het scherm en wordt dadelijk afgeprint.

DoCmd.OpenReport strRapport, acViewPreview, , Me.Filter
DoCmd.OpenReport strRapport &"Kopie", , , Me.Filter
Else
'volledige rapport
DoCmd.OpenReport strRapport, acViewPreview
DoCmd.OpenReport strRapport &"Kopie"
 
Helaas gaat het nog niet naar wens.

Het is nu zo om de nota af te drukken moet je het IDnr van de camping gast opgeven
(dat was ook zo)
Dan komt de nota op het scherm en dan gaat het fout
Er komt een mededeling bezig met nota op de printer af te drukken (er wordt nog niet geprint)
je moet dan nogmaals het IDnr ingeven dan wordt de kopie geprint.
daarna moet je nog een keer een print opdacht geven om het orgineel te printen.
Blijkbaar is nodig dat de nota eerst op het scherm komt.

Het is bij elkaar een ingewikkeld verhaal.
Is hier nog uit te komen?

Geert
 
Geert,

kan je eens niet je db, met enkel de benodigde tabellen, query's, .... plaatsen.
Zonder vertouwelijke informatie, wel met testdata.(Gezipt)

Zou met 1 rapport waarschijnlijk ook moeten kunnen, middels vba.
 
LVT
Het zal wel vanavond worden.

Op zulke problemen stuit je wanneer je onvoldoende kennis hebt van access.
De dB is een afgeleide van het adresmenu van Hans Bronkhorst, waar nog veel (voor het huidige doel) ballast in zit.
Ik hoop dat de tijd hebt om er eens naar te kijken.

bvd Geert
 
LVT
Was minder werk dan ik dacht dit is het ge zip zonder gevens van personen.
Om te testen zelf dan gegevens in voeren.

Geert
 
Waarschijnlijk je db verkeerd geplaatst. Is niet te zien.
Geef ook duidelijk wat waar moet gebeuren.
 
LVT
De dB is te groot ik heb er het een en ander uitgehaald en hem gecomprimeerd en hersteld en gezipt maar is nog 410786 groot.
Kan ik het misschien naar een mail adres sturen?
Geert
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan