Hallo!
Ich möchte einen Rechnungsbericht aus verschiedenen Druckerschächten ausdrucken (direkter Ausdruck, nicht über Seitenansicht), d.h. die erste Seite aus Schacht1 und alle weiteren aus Schacht2. Diese Option gibt es in Word97, jedoch nicht in Access97.
Hat jemand eine Idee, wie man das lösen kann?
pp
Das geht hiermit (allerdings nicht in MDE-Datenbanken):
Private Type str_DEVMODE
strGZF As String * 94
End Type
Private Type type_DevMode
strDeviceName As String * 16
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer
intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 16
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type
Public Function SetDefSource(RepName, Optional DefS = 1)
On Error GoTo Er
Dim dm As str_DEVMODE, DeviceMode As type_DevMode
Application.Echo False
DoEvents
DoCmd.OpenReport RepName, acDesign
If Not IsNull(Reports(RepName).PrtDevMode) Then
dm.strGZF = Reports(RepName).PrtDevMode
LSet DeviceMode = dm
DeviceMode.intDefaultSource = DefS
LSet dm = DeviceMode
Reports(RepName).PrtDevMode = dm.strGZF
End If
DoCmd.Close acReport, RepName, acSaveYes
Ex:
On Error Resume Next
Application.Echo True
Exit Function
Er:
MsgBox "SetDefSource: " & Err.Description
Resume Ex
End Function
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard!
Vielen Dank für Deine Antwort. Das mit dem Drucken auf die verschiedenen Schächte funktioniert wunderbar.
Wie schaffe ich es jetzt noch, die erste Seite an den ersten Schacht, die restlichen an den zweiten zu schicken? Hast Du da auch eine Idee?
pp
Bei Docmd.PrintOut kannst Du die zu druckenden Seiten angeben.
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard!
Für den Befehl PrintOut muss ich den Bericht in Preview öffnen (oder mache ich was falsch?).
Gibt es auch eine andere Methode, ohne die Seitenansicht zu bemühen?
Für das Drucken des Berichts ist es notwendig diesen viermal zu öffnen, und das dauert sehr lange, speziell in der Seitenansicht bei mehreren Seiten.
Vielleicht hast Du noch eine Idee?
Dazu müsste ich mehr über den Bericht wissen…
Manchmal kann man ja anhand der Daten feststellen, was auf welche Seite gehört. In so einem Fall würde ich daraus zwei Berichte machen - einen für die erste Seite, einen anderen für die Folgeseiten. Wenn die zweite Seite einfach dadurch entsteht, dass die Daten von der ersten überlaufen, ist das natürlich schwierig.
Ich hab das bislang dadurch gelöst, dass ich den Kunden von den unterschiedlichen Folgeseiten abgebracht habe - ist auch einfacher zusammen zu sortieren…
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Dann bleibt mir bzw. dem Kunden wohl nur mit den Geschwindigkeitseinbußen zu leben. Das Problem ist, daß der Kunde rechts oben auf seinem Briefkopf viele Daten stehen hat, die sich über ein Drittel des Blattes hinziehen. Die Rechnungspositionen auf den Folgeseiten könnten also erst darunter stehen wodurch viel, viel Platz verlorenginge.
Ich habe fürs erste auf jeden Fall mal eine Lösung und danke Dir für Deine Hilfe!
pp
Das Problem ist, daß der Kunde
rechts oben auf seinem Briefkopf viele
Daten stehen hat, die sich über ein
Drittel des Blattes hinziehen. Die
Rechnungspositionen auf den Folgeseiten
könnten also erst darunter stehen wodurch
viel, viel Platz verlorenginge.
Nun ja - eigentlich kann man doch alles per Drucker eindrucken. Ich mach es so, dass nur farbige Logos auf die Seiten gedruckt werden (wenn der Kunde so etwas hat) - alles andere drucke ich - einschliesslich Adresse, Bankverbindung usw. Hat meinen Kunden schon eine Menge Geld gespart (bei der PLZ-Umstellung, beim Umzug, bei der Gründung einer neuen Filiale, beim Wechsel der Hausbank…).
Reinhard