rapport meerdere keren afdrukken

• 

  chris

  13-12-2004 18:03

  Hoi allemaal

  ik zit met het volgende probleem

  ik heb een artikel database waar ik etiketen van wil afdrukken

  per artikel wil ik kunnen aangeven hoeveel ik nodig heb

  dit doe ik in het veld “aantal1”

  de volgende code is heb ik ook van dit prikbord gehaald

  maar hij werkt niet goed er komt iedere keer maar één etiket uit

  wie kan mij helpen?

  alvast bedank voor het meedenken

  Chris

  Private Sub afdruketiket_Click()

  On Error GoTo Err_afdruketiket_Click

  Dim stDocName As String

  stDocName = “Rprijsetiket”

  For n = 1 To Me!

  DoCmd.OpenReport stDocName, acPreview, , Plucode1 = Me.

  Next n

  Exit_afdruketiket_Click:

  Exit Sub

  Err_afdruketiket_Click:

  MsgBox Err.Description

  Resume Exit_afdruketiket_Click

  End Sub
• 

  Eric Bernhard

  14-12-2004 19:47

  Chris,

  Ik heb de routine niet uitgetest.

  Maar wat mij opviel was dat je de volgende instructie gebruikte:

  DoCmd.OpenReport stDocName, acPreview, , Plucode1 = Me.

  Nu zorgt acPreview ervoor dat je het op je beeld scherm ziet.

  Alleen je kunt een rapport maar 1x op je monitor weergeven.

  Als je acNormal (versturen naar de printer) gebruikt dan werkt het misschien wel.

  Omdat je dan print en daarna geef je weer een opdracht om het opnieuwe te printen.

  Wat je eventueel kan doen is een code op de direkt uitvoer scherm weer te geven (bv de teller voor het laten rond lopen van het aantal pagina's) dmv debug.print .

  Dan weet je in ieder geval dat de routine meerdere keren wordt rond gelopen.

  En als je acNormal opneemt in je routine dan stuurd deze het rapport naar de printer en deze kan wel een rapport meerdere keren openen, omdat deze namelijk ook gelijk gesloten wordt het voor het programma en acPreview zordt dat deze open blijf staan totdat je hem zelf sluit of dmv docmd.closereport …… doe.

  Je zou ook het open van het report direkt kunnen laten volgende door het sluit commando, alleen weet ik niet of het dan voor jouw ook zichtbaar is op het scherm door de grote snelheid waarmee het gebeurd.

  Succes, Eric Bernhard
• 

  chris

  15-12-2004 12:27

  Hoi eric

  het was de verkeerde zuinigheid die roet in het eten gooide

  heb acpreview vervangen door acnormal en het probleem is opglost

  bedank voor de oplossing

  chris