MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.03.2019, 18:37   #1
Kyron9000
MOF Koryphäe
MOF Koryphäe
Standard Acc2016 - Kontextmenü/Druckerdialog

Hallo,

Ich habe mit meinem Kontextmenü Schwierigkeiten.
Es funktioniert soweit gut, aber es druckt meinen Bericht nicht so aus
wie ich ihn haben möchte...
es wird das Formular ausgedruckt aus dem ich den Bericht starte und nicht der Bericht.
Mir fehlt da irgendwo etwas... ev. könnt ihr mir dabei helfen, wäre sehr nett.
Mein Code dafür ist...
Code:

Option Compare Database
Option Explicit
Const cstrCmdBar = "NewKontex"
Public Function fncContexReport(R As Report)
    CommandBars(cstrCmdBar).Delete
    Dim cmb    As CommandBar
    Dim cmbBtn As CommandBarButton
    Set cmb = CommandBars.Add(cstrCmdBar, msoBarPopup, False, False)
        With cmb
            '.Controls.Add Type:=msoControlButton, ID:=4
            Set cmbBtn = .Controls.Add(Type:=msoControlButton)
            With cmbBtn
                .Caption = "Druckerdialog"
                .OnAction = "=fncOnActionBtn()"
                .BeginGroup = True
                .FaceId = 4
            End With
        End With
    R.ShortcutMenuBar = cstrCmdBar
    Set cmbBtn = Nothing
    Set cmb = Nothing
End Function
Public Function fncOnActionBtn()
    DoCmd.RunCommand acCmdPrint
End Function
...hatte eine Idee die auch funktioniert, aber leider ohne Druckerdialog...
Code:

Option Compare Database
Option Explicit

Const cstrCmdBar = "NewKontex"
Public sReport As String

Public Function fncContexReport(R As Report)
'On Error Resume Next

    sReport = R.Name

    CommandBars(cstrCmdBar).Delete
    Dim cmb    As CommandBar
    Dim cmbBtn As CommandBarButton
    
    Set cmb = CommandBars.Add(cstrCmdBar, msoBarPopup, False, False)
        With cmb
            '.Controls.Add Type:=msoControlButton, ID:=4
            Set cmbBtn = .Controls.Add(Type:=msoControlButton)
            With cmbBtn
                .Caption = "Druckerdialog"
                .OnAction = "=fncOnActionBtnPrint()"
                .BeginGroup = True
                .FaceId = 4
            End With
        End With
    R.ShortcutMenuBar = cstrCmdBar
    Set cmbBtn = Nothing
    Set cmb = Nothing
End Function

Public Function fncOnActionBtnPrint()
    DoCmd.OpenReport sReport, acViewNormal
End Function
' nicht verwendet!!!
Public Function fncOnActionBtn()
    DoCmd.RunCommand acCmdPrint
End Function

__________________

Gruß Alfred

Geändert von Kyron9000 (14.03.2019 um 20:35 Uhr).
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.03.2019, 20:50   #2
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

... ohne Druckdialog geht es auch so...
Code:

       With cmb
            .Controls.Add Type:=msoControlButton, ID:=4
            Set cmbBtn = .Controls.Add(Type:=msoControlButton)

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.03.2019, 21:47   #3
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

...meine im Moment-Lösung ist...
Code:

Public Function fncOnActionBtn()
On Error Resume Next
Dim iCopie As Integer
    iCopie = InputBox("Anzahl der Kopien eingeben!")
        If iCopie = 0 Or iCopie = vbEmpty Then
            MsgBox "Abbruch"
        Else
             DoCmd.PrintOut , , , , iCopie
        End If
End Function
Denke, mir muss da noch etwas besseres einfallen

PS: was an der Sache komplett verrückt ist, es funktioniert bei einem Formular/Bericht/Druck
und bei einem anderen Formular/Bericht/Druck funktioniert es nicht (ich meine die aller erste Version)
Habe auch schon alles in eine neue DB verfrachtet... nützt alles nichts.

__________________

Gruß Alfred

Geändert von Kyron9000 (14.03.2019 um 22:50 Uhr).
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 07:41   #4
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Guten Morgen,

eines habe ich noch festgestellt... ohne PopUp funktioniert alles.
Benötige aber leider PopUp-Berichte.

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 09:08   #5
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von Kyron9000 Beitrag anzeigen

es wird das Formular ausgedruckt aus dem ich den Bericht starte und nicht der Bericht.

Code:

DoCmd.PrintOut , , , , iCopie

Mit DoCmd.PrintOut wird doch immer das gedruckt, was gerade den Fokus besitzt.
Wenn der Bericht den Fokus hat, sollte es also klappen.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 11:03   #6
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

danke für deine Antwort.
Das DoCmd.PrintOut , , , , iCopie funktioniert ja auch nur nicht mit
DoCmd.RunCommand acCmdPrint (was ich aber lieber hätte).
Da kann man den Drucker auswählen...
Kann ich auch dazu erstellen, wird aber mühsam und unnötig kompliziert.

NA ja... teilweise funkts und teilweise nicht. Das finde ich eben seltsam.
Wenn es gar nicht funktionieren würde... wäre es mir dann klar... geht so nicht.
Ohne PopUp-Bericht funktioniert aber jede Version.

__________________

Gruß Alfred

Geändert von Kyron9000 (15.03.2019 um 11:05 Uhr).
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 11:09   #7
Lanz Rudolf
MOF Guru
MOF Guru
Standard

Hallo
ich hab hier etwas
https://www.dropbox.com/s/sdiq3nb8sh...WahlZ.zip?dl=0

weiss NICHT ob das was für Dich ist ! ?

evtl. liest Du auch in meiner Doc -->
https://www.dropbox.com/s/pa6yzgvw74...lagen.zip?dl=0

Seite 153
6.61.5 Formular Ausdrucken mit Windows Drucker-Dialog
Seite: 154
6.62 Drucker (Bericht u. Einstellungen) Auswahl mit Formular für Berichte

__________________


Gruss
Ruedi

WICHTIG Hilfe findet man auch hier:
<a *****"http://www.donkarl.com/" target="_blank">http://www.donkarl.com/</a> ;<a *****"http://www.yaccess.de/" target="_blank">http://www.yaccess.de/</a> ; und natürlich MS Office Forum Ask Dr. Mof <a *****"http://www.ms-office-wissen.de/askdrmof/index.php" target="_blank">http://www.ms-office-wissen.de/askdrmof/index.php</a>;
Umgang mit NULL ; <a *****"attachment.php?attachmentid=20764&d=1243959564" target="_blank">hier downloaden</a>
Datenrettung;<a *****"http://www.access-rettung.de/info.htm" target="_blank">http://www.access-rettung.de/info.htm</a>Meine Doc;<a *****"https://www.dropbox.com/s/pa6yzgvw74lk6ik/ACCESS%202000BU%20%20Begleitunterlagen.zip?dl=0" target="_blank">Meine Doc</a>

Geändert von Lanz Rudolf (15.03.2019 um 11:33 Uhr).
Lanz Rudolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 11:11   #8
markusxy
MOF Meister
MOF Meister
Standard

@Kyron9000,
hast du jetzt versucht den Fokus zuerst auf den Report zu setzen?
Es wird immer das Objekt mit dem Fokus gedruckt.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 11:50   #9
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

...habe es auch so getestet...
Code:

Public Function fncOnActionBtn()
    Reports(sReport).Setfocus
    DoCmd.RunCommand acCmdPrint
End Function
war leider auch nix

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2019, 18:33   #10
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Ruedi,

ja Ruedi, das war etwas für mich, habe deinen DruckerDialog 2016 an meine Gegebenheiten angepasst...
keine Auswahl der Berichte, dieses Ufo habe ich gelöscht.
Den Berichtnamen stelle ich mit einer Public-Variabel zu Verfügung...
passt hervorragend!

Es funkt sogar der .pdf Druck unglaublich, super!!

Vielen herzlichen Dank, Top-Antwort!

PS: falls sich noch etwas ergeben sollte... ich melde mich wieder

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2019, 12:25   #11
Lanz Rudolf
MOF Guru
MOF Guru
Standard

Hallo Alfred
Auswahl der Berichte
war ja nur ein Beispiel
Danke für:
unglaublich, super!
pdf Druck ist ja auch nur ein Drucker

und Grüsse nach Wien

__________________


Gruss
Ruedi

WICHTIG Hilfe findet man auch hier:
<a *****"http://www.donkarl.com/" target="_blank">http://www.donkarl.com/</a> ;<a *****"http://www.yaccess.de/" target="_blank">http://www.yaccess.de/</a> ; und natürlich MS Office Forum Ask Dr. Mof <a *****"http://www.ms-office-wissen.de/askdrmof/index.php" target="_blank">http://www.ms-office-wissen.de/askdrmof/index.php</a>;
Umgang mit NULL ; <a *****"attachment.php?attachmentid=20764&d=1243959564" target="_blank">hier downloaden</a>
Datenrettung;<a *****"http://www.access-rettung.de/info.htm" target="_blank">http://www.access-rettung.de/info.htm</a>Meine Doc;<a *****"https://www.dropbox.com/s/pa6yzgvw74lk6ik/ACCESS%202000BU%20%20Begleitunterlagen.zip?dl=0" target="_blank">Meine Doc</a>

Geändert von Lanz Rudolf (16.03.2019 um 12:36 Uhr).
Lanz Rudolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2019, 12:39   #12
markusxy
MOF Meister
MOF Meister
Standard

@Kyron9000,
vielleicht könntest du die Lösungen noch für die Nachwelt posten.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2019, 12:44   #13
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Markus,

da müsste ich ja meine komplette DB inkl. Daten senden ...
die wäre auf jeden Fall zu groß.
Ich kann ev. eine DB mit den wichtigsten Objekte einstellen... dauert aber etwas.

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2019, 13:03   #14
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von Kyron9000 Beitrag anzeigen

Hallo Markus,

da müsste ich ja meine komplette DB inkl. Daten senden ...
die wäre auf jeden Fall zu groß.
Ich kann ev. eine DB mit den wichtigsten Objekte einstellen... dauert aber etwas.

Wenn du das machst, dann stell es gleich ins Code Archiv.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2019, 15:27   #15
Kyron9000
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

..habe es schon getestet... funktioniert in einer neuen DB gar nicht.
Habe meine DB ausgeräumt und diese verwendet... geht nicht.
Es wird immer das Formular (in diesem Fall das DruckerFormular) aufgerufen und nicht der Bericht.

Ich werde es sicher weiter testen... wenn es funkt... stelle ich es hier ein.
Aber, in das Code Archiv soll es Ruedi einstellen, ist ja auch schließlich sein Code.

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:46 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.