VBA in 2010: Printout - Anzahl Kopien hat keine Funktion

[DF6GL]

Hallo Peter,


mhmm, ich sehe das noch etwas anders...  (und auch ein bisschen OT)


Beim Ausdruck mehrerer Kopieen (mal abgesehen von diesem "Sondereffekt" hier) werden nicht in einem Druckjob mehrere vollständige "Ausdrucke"  (also Dokumente mit mehreren Seiten) nacheinander ausgedruckt, sondern es wird einmalig das gesamte Dokument (also alle Seiten, wobei "neue Seite" ja auch nur ein Kommando an den Drucker bedeutet) an den Drucker (in dessen Arbeitsspeicher) geschickt. Zusätzlich dazu kommen die Kommandos, die die Druckereinstellungen beeinflussen, wozu auch die Anzahl der Ausdrucke (Kopieen) gehört.


Ob sich der Arbeitsspeicher nun bei leistungsfähigen Druckern direkt im Drucker befindet, oder ansonsten ein Teil des PC-RAMs angeknappert wird (vom Druckertreiber) , ist erstmal egal.


Unter A2003 wird auch nur EIN PDF-File erzeugt, in dem alle Seiten auftauchen, die der Bericht als solcher hat, die sich aber entspr. der Anzahl der Kopieen wiederholen.

Unter A2007 wird ein PDF-File erzeugt, in dem sich nur einmalig die Berichtsseiten vorfinden.


Wie auch immer, habe bis jetzt keine Lösung gefunden, die das Phenomen auflöst oder umgeht...

Vielleicht weiß ja sonst jemand etwas ..

[Fremoc]

Hallo,


zeige bitte noch den Code, mit dem die Sub aufgerufen wird, damit sie mehrere Kopien drucken soll.

Hallo!

Bin erst jetzt wieder online.

Der Code, mit dem hier die Druck-Prozedur aufgerufen wird:

------------------------------------------------------------------------------------
Public Sub EPDruckSelVert(Dok, fldLin, prnt) '(Serien)druck Elternpläne Verteiler Klassen
Dim Kl As String

If Me!alleLinien = -1 Then
    If prnt = 1 Then
    Me!DruckOpt = 2
    prnt = 2
    MsgBox "Beim Seriendruck mehrerer Linien " & Chr(13) & _
                "funktioniert keine Druckvoransicht!" & Chr(13) & Chr(13) & _
                "Die Pläne werden direkt an den Drucker gesendet!", vbCritical
    End If
    If Me.Verteiler = 2 Then
        Set db = CurrentDb
        Set rs = db.OpenRecordset("FD-Schüler Klassen-Verteilerliste LinienAnzSch", dbOpenSnapshot)
        If Not rs.BOF Then
            vert = True
            rs.MoveFirst
            Do Until rs.EOF
                If Kl <> rs!Klasse Then
                    Kl = rs!Klasse
                    F = "((Klasse)='" & Kl & "')"
                    DoCmd.OpenReport "Linienpläne Schüler Klassen-Verteilerliste", acViewNormal, , F                       'Deckblatt Klassenverteiler
                End If
                anz = rs!anzschüler
                L = rs!LINIE
                LinFilterVert F, L, fldLin, Kl
                Druck Dok, prnt, F, vert, anz      'Aufruf Druck-Prozedur
                rs.MoveNext
            Loop
            rs.Close
            Set rs = Nothing
        Else
            rs.Close
            Set rs = Nothing
            MsgBox "Es sind keine Linien in der Tabelle!", vbCritical
            Exit Sub
        End If
    End If
Else
    L = Me!LinieWahl
    LinFilter F, L, fldLin
    Druck Dok, prnt, F, vert, anz
End If
   
End Sub
-----------------------------------------------------------------------------------------

Die Variable F steht für den Filter.

Handelt es sich hier um einen ACC2010-Bug?

Gruß
C.F.

[DF6GL]

Hallo Fremoc,


ok, kann daran aber auch nicht erkennen welche impliziten Datentypen den Variant-Variablen zugeordnet werden.



Das Problem allerdings liegt eh nicht daran, sondern scheint ein generelles A2007/2010, bzw. Druckertreiber-Problem zu sein.   Siehe unsere letzten Beiträge...