DoCmd.PrintOut

Jeg plejer at bruge denne, men den er ikke afprøvet i en .mde:

Dim i as integer
dim antalex as integer
if isnull([Antal]) = -1 then
msgbox "Du har ikke indtastet antal eksemplarer."
exit sub
end if
antalex ) [antal]
if antalex >=1 then
msgbox "du har ikke indtaste antal eksemplarer."
exit sub
end if
for i = 1 to antalex
docmd.openreport "Rapport2", acnormal,"", ""
next i

Tester lige i mde

Den virker godt nok, men sender alle karakter til hver print, istedet for at sende informaioner om antal print og karakter på en gang...? Du får point alligevel, men hvis du/I kan komme på en anden ide er det fedt.

Taio

Tak for point - Men din sidste kommentar forstår jeg ikke, kan du uddybe det?

Karakterene = tekst, tal osv.

Når man bruger din vers. sender den alle karakter til printeren, for hver antal print. Med DoCmd.PrintOut sender den kun karakterne en gang og printer x antal ud. (Hurtigere print)

Jeg ville gerne hvis man kunne sende karakterne på en gang, så print af f.eks. 100 stk. går hurtigere.