Thanks very much indeed, but I just can not do that... I have personal data about other people...
But all I did was to paste: Option Compare Database Option Explicit Dim tæl As Integer Dim a As Integer
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer) If tæl < a Then Me.NextRecord = False Me.PrintSection = False End If tæl = tæl + 1 End Sub
Private Sub Report_Open(Cancel As Integer) a = InputBox("Hvilken etiket er den første, der skal bruges?", "Hjælp",1)
tæl = 1 DoCmd.Maximize
End Sub
into a macro (?) under the 'report' (dansk...)... I don't have any other code in the macro...
The code looks OK to me and IF it works in preview then I would have thought it would work when printing too. Its hard for me to check whats happening without actually seeing your dB, so IF you can maybe send JUST a couple of records where you have altered the data then I dont have to make anything here!
boleole -> Problemmet opstår fordi rapporten internt i Access gennemløbes flere gange - eks. for at beregne total antal sider. Du kan indsætte følgende for at sikre dig at koden kun gennemløbes ved den sidste formatering:
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages <> 0 Then
If tæl < a Then Me.NextRecord = False Me.PrintSection = False End If tæl = tæl + 1
Lidt sent med en løsning på boleoles problem, men måske andre der kan bruge den!
Jeg indsatte denne kode i min rapport, og så bliver mine labels printet pænt ud, og de bliver printet der hvor man vil have dem ;-).
Private Sub Report_Activate() If MsgBox("Vil du printe labels?", vbYesNo) = vbYes Then DoCmd.PrintOut acPrintAll, , , acMedium, 1, True End If End Sub
Resultatet på rapporten kan ikke bruges, da der kun vises en label. Men printe - det kan man ;-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.