Sie sind zurzeit offline. Es wird auf die erneute Herstellung einer Internetverbindung gewartet.

ACC2000: Berichte aus verschiedenen Papierfächern drucken

Dieser Artikel wurde zuvor veröffentlicht unter D40269
Dieser Artikel ist eine Übersetzung des folgenden englischsprachigen Artikels der Microsoft Knowledge Base:
200546 ACC2000: How to Print a Report to Different Paper Trays
Fortgeschritten: Erfordert umfangreiche Kenntnisse in den Bereichen Programmieren, Interoperabilität und Mehrbenutzeranwendungen.

Zusammenfassung
Dieser Artikel bezieht sich auf Microsoft Access-Datenbanken (.mdb) sowie auf Microsoft Access-Projekte (.adp).

Dieser Artikel beschreibt, wie Sie eine benutzerdefinierte Visual Basic für Applikationen-Beispielprozedur erstellen, in der die Eigenschaft PrtDevMode verwendet wird, um verschiedene Papierschächte als Quellen für die Seiten eines Berichts einzustellen.
Weitere Informationen
Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. In diesem Artikel wird vorausgesetzt, dass Sie mit der in den Beispielen verwendeten Programmiersprache und mit den zum Erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Die Spezialisten von Microsoft Product Support Services können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind. Beim Verwenden der Eigenschaft PrtDevMode sind die folgenden Druckertreibermerkmale zu beachten:
  • Setzen Sie nur die Elemente, die vom Druckertreiber unterstützt werden. Wenn Sie zum Beispiel ein benutzerdefiniertes Seitenformat für einen Treiber setzen, der kein benutzerdefiniertes Seitenformat unterstützt, kommt es möglicherweise zu unerwarteten Ergebnissen.
  • Setzen Sie das Fields-Element der Eigenschaft PrtDevMode, wenn Sie ein anderes Element ändern, damit der Druckertreiber weiß, welche Elemente geändert wurden.
  • Ändern Sie nur die ersten 68 Byte der Eigenschaft PrtDevMode. Da Druckertreiber treiberspezifische Informationen speichern können, die auf die ersten 68 Byte folgen, ist es wichtig, diese Informationen nicht zu überschreiben.
In diesem Artikel wird davon ausgegangen, dass Sie die erste Seite Ihres Berichts von einer Papierquelle und die zweite Seite Ihres Berichts von einer anderen Papierquelle drucken möchten.

Schritte zum Drucken von Seiten eines Berichts von verschiedenen Papierschächten

  1. Öffnen Sie die Beispieldatenbank "Nordwind.mdb".
  2. Erstellen Sie ein neues Modul und geben Sie die folgenden Informationen in den Deklarationsbereich des Moduls ein:
    Type zwtDevModeStr   RGB As String * 94End TypeType zwtDeviceMode   dmDeviceName As String * 16   dmSpecVersion As Integer   dmDriverVersion As Integer   dmSize As Integer   dmDriverExtra As Integer   dmFields As Long   dmOrientation As Integer   dmPaperSize As Integer   dmPaperlength As Integer   dmPaperWidth As Integer   dmScale As Integer   dmCopies As Integer   dmDefaultSource As Integer   dmPrintQuality As Integer   dmColor As Integer   dmDuplex As Integer   dmResolution As Integer   dmTTOption As Integer   dmCollate As Integer   dmFormName As String * 16   dmPad As Long   dmBits As Long   dmPW As Long   dmDFI As Long   dmDRr As LongEnd Type					
  3. Geben Sie folgende Prozedur ein:
    Sub setPaperSource(rptName As String)   Dim Rpt As Report   Dim dm As zwtDeviceMode   Dim DevString As zwtDevModeStr   Dim DevModeExtra As String         DoCmd.SetWarnings False   ' Set Paper Tray for page 1   DoCmd.OpenReport rptName, acDesign   Set Rpt = Reports(rptName)   DevModeExtra = Rpt.PrtDevMode   DevString.RGB = DevModeExtra   LSet dm = DevString   dm.dmDefaultSource = 2  '1 = Upper Tray, 2 = Lower Tray, 5 = _      Envelope Feeder   LSet DevString = dm   Mid$(DevModeExtra, 1, 68) = DevString.RGB   Rpt.PrtDevMode = DevModeExtra   DoCmd.Save acReport, Rpt.Name   DoCmd.SelectObject acReport, Rpt.Name, True   DoCmd.PrintOut acPages, 1, 1         ' Set Paper Tray for page 2   DoCmd.OpenReport rptName, acDesign   Set Rpt = Reports(rptName)   DevModeExtra = Rpt.PrtDevMode   DevString.RGB = DevModeExtra   LSet dm = DevString   dm.dmDefaultSource = 1  '1 = Upper Tray, 2 = Lower Tray, 5 = _      Envelope Feeder   LSet DevString = dm   Mid$(DevModeExtra, 1, 68) = DevString.RGB   Rpt.PrtDevMode = DevModeExtra   DoCmd.Save acReport, Rpt.Name   DoCmd.SelectObject acReport, Rpt.Name, True   DoCmd.PrintOut acPages, 2, 2   DoCmd.SetWarnings TrueEnd Sub					
  4. Geben Sie folgende Zeile in das Direktfenster ein und drücken Sie die [EINGABETASTE], um diese Prozedur zu testen:
    setPaperSource("Invoice")						
    Beachten Sie, dass die ersten beiden Seiten des Berichts "Rechnung" gedruckt werden, wobei die erste Seite vom unteren und die zweite Seite vom oberen Papierschacht gedruckt wird.
Verweise
Um weitere Informationen zur "PrtDevMode"-Eigenschaft anzuzeigen, klicken Sie im Visual Basic-Editor im Menü ? auf Microsoft Visual Basic-Hilfe, geben Sie PrtDevMode-Eigenschaft in den Office- oder Antwort-Assistenten ein, und klicken Sie auf Suchen, um das Thema anzuzeigen.


Um weitere Informationen zur "PrtDevNames"-Eigenschaft anzuzeigen, klicken Sie im Visual Basic-Editor im Menü ? auf Microsoft Visual Basic-Hilfe, geben Sie PrtDevNames Eigenschaft in den Office- oder Antwort-Assistenten ein, und klicken Sie auf Suchen, um das Thema anzuzeigen.
printing
Bitte beachten Sie: Bei diesem Artikel handelt es sich um eine Übersetzung aus dem Englischen. Es ist möglich, dass nachträgliche Änderungen bzw. Ergänzungen im englischen Originalartikel in dieser Übersetzung nicht berücksichtigt sind. Die in diesem Artikel enthaltenen Informationen basieren auf der/den englischsprachigen Produktversion(en). Die Richtigkeit dieser Informationen in Zusammenhang mit anderssprachigen Produktversionen wurde im Rahmen dieser Übersetzung nicht getestet. Microsoft stellt diese Informationen ohne Gewähr für Richtigkeit bzw. Funktionalität zur Verfügung und übernimmt auch keine Gewährleistung bezüglich der Vollständigkeit oder Richtigkeit der Übersetzung.
Eigenschaften

Artikelnummer: 200546 – Letzte Überarbeitung: 10/20/2005 13:17:22 – Revision: 3.0

  • Microsoft Access 2000 Standard Edition
  • kbhowto kbprint KB200546
Feedback