Office: (Office 2010) access vergißt Druckeinstellungen

Fonse2010 · 24. Februar 2014

Ich habe mir eine Datenbank geschrieben, mit Überweisungsträger ausgedruckt werden auf einem Nadeldrucker.

Wenn ich das Formular ausrucke muss ich beim ersten mal über die Druckerauswahl den Drucker(nicht Standarddrucker) auswählen und die passende Papiergröße.
Das passt dann auch, solange bis ein anderer User die Datenbank auf dem Netzlaufwerk aufruft und Überweisungsträger druckt.

Obwohl auf den Arbeitsplätzen die Drucker identisch heissen und die Papiergrößen identisch eingerichtet sind,
muss ich wenn der erste User wieder die db benutzt alles wieder von Hand auswählen.

Gibt es keine Möglichkeit, dass ich gleich im VBA den Drucker und das Papierformat festlege?

Dann bräuchten die User das nicht mehr tun.

Danke für eure Hilfe

Fonse2010

:)

JOZI · 25. Februar 2014

Hallo Fonse2010,

hast du es schon mal versucht mit der Einstellung Seite einrichten im Bericht.

Unter Seite einrichten kannst Du den Drucker und die Papierzufuhr als auch die Papiergröße dem Bericht zuordnen.

Die wird dann auch nicht vergessen.

Nur wenn der Drucker dann nicht vorhanden ist kommt eine Meldung, dass der Drucker nicht verfügbar ist auf dem gedruckt werden soll.

Wenn aber bei Dir alle Drucker gleich heissen dürfte da kein Problem sein.

Gruß

JOZI

www.bitandbyteworker.com

Fonse2010 · 25. Februar 2014

Hallo JOZI,

genau so habe ich das ja bisher gemacht,

unter Seite einrichten habe ich Drucker und Papier ausgewählt.
Das bleibt so lange, bis ein anderer User mit der DB arbeitet,
dann sind die Einstellungen weg, und access benutzt den Standarddrucker des Systems.

Fonse 2010

JOZI · 26. Februar 2014

Hallo Fonse2010

Das ich nun Dein Problem verstehe, habe ich mal eine Frage.

Hast Du die DB in Frontend und Backend getrennt?

Wenn ja wo liegt das Frontend und das Backend!

Hast Du es mal mit einer MDE bzw. ACCDE versucht? Dass die User nur in dieser Datenbank dann arbeiten.

Gruß

JOZI

www.bitandbyteworker.com

Andre.Heisig · 7. Januar 2021

von Fonse2010

Gibt es keine Möglichkeit, dass ich gleich im VBA den Drucker und das Papierformat festlege?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'************************
' Printer setup module
' Set/retrieves the default printer - originaly for VB6
' Works for A97/a2000
' Albert D.Kallal - 01/13/2002, kallal@msn.com

'************************
' How to use
' To get the default printer: debug.print StandardDruckerErmitteln
' To set the default printer: StandardDruckerSetzen("Printer Name")
' To get a list of printers suitable for a listbox, or combo
' debug.print GetPrinters (in forms on-load event you would use:
' Me.Combo0.RowSource = GetPrinters
' Me.Combo0 = StandardDruckerErmitteln
' the first line loads up the combo box, the 2nd sets
' the combo to the default.
'
' that is all there folks!

Private Declare Function DeviceCapabilities Lib "winspool.drv" _
Alias "DeviceCapabilitiesA" _
(ByVal lpDeviceName As String, _
ByVal lpPort As String, _
ByVal iIndex As Long, _
lpOutput As Any, _
ByVal dev As Long) As Long

Private Const HWND_BROADCAST As Long = &HFFFF&
Private Const WM_WININICHANGE As Long = &H1A

' The following code allows one to read, and write to the WIN.INI files
' In win 2000 the printer settings are actually in the registry. However, windows handles this correctly

Private Declare Function GetProfileString Lib "kernel32" _
Alias "GetProfileStringA" _
(ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long

Private Declare Function WriteProfileString Lib "kernel32" _
Alias "WriteProfileStringA" _
(ByVal lpszSection As String, _
ByVal lpszKeyName As String, _
ByVal lpszString As String) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Public Function fstrDField(mytext As String, delim As String, groupnum As Integer) As String

' this is a standard delimiter routine that every developer I know has.
' This routine has a million uses. This routine is great for splitting up
' data fields, or sending multiple parms to a openargs of a form
'
' Parms are
' mytext - a delimited string
' delim - our delimiter (usually a , or / or a space)
' groupnum - which of the delimited values to return
'

Dim startpos As Integer, endpos As Integer
Dim groupptr As Integer, chptr As Integer

chptr = 1
startpos = 0
For groupptr = 1 To groupnum - 1
chptr = InStr(chptr, mytext, delim)
If chptr = 0 Then
fstrDField = ""
Exit Function
Else
chptr = chptr + 1
End If
Next groupptr
startpos = chptr
endpos = InStr(startpos + 1, mytext, delim)
If endpos = 0 Then
endpos = Len(mytext) + 1
End If

fstrDField = Mid$(mytext, startpos, endpos - startpos)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'//////////////// Code Start ////////////////////////////////////////////////////////////////////////////////////
' FUNKTION: Setzt den Windows-Standarddrucker auf den angegebenen Drucker
' AUFRUF: StandardDruckerSetzen("DruckerName")
' VERWEISE: ...
' VERWENDUNG: ...
' RÜCKGABE: -/-
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Public Function StandardDruckerSetzen(strDruckerName As String) As Boolean

Dim strDeviceLine As String
Dim strBuffer As String
Dim lngbuf As Long

' get the full device string
strBuffer = Space(1024)
lngbuf = GetProfileString("PrinterPorts", strDruckerName, "", strBuffer, Len(strBuffer))

'Write out this new printer information in WIN.INI file for DEVICE item
If lngbuf > 0 Then

strDeviceLine = strDruckerName & "," & _
fstrDField(strBuffer, Chr(0), 1) & "," & _
fstrDField(strBuffer, Chr(0), 2)

Call WriteProfileString("windows", "Device", strDeviceLine)
StandardDruckerSetzen = True

Call SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "windows")

Else
StandardDruckerSetzen = False
End If

End Function
'//////////////// Code End //////////////////////////////////////////////////////////////////////////////////////
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'//////////////// Code Start ////////////////////////////////////////////////////////////////////////////////////
' FUNKTION: Ermittelt den Namen des aktuellen Standard-Druckers.
' AUFRUF: StandardDruckerErmitteln()
' VERWEISE: ...
' VERWENDUNG: ...
' RÜCKGABE: ...
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Public Function StandardDruckerErmitteln() As String

Dim strDefault As String
Dim lngbuf As Long

strDefault = String(255, Chr(0))
lngbuf = GetProfileString("Windows", "Device", "", strDefault, Len(strDefault))
If lngbuf > 0 Then
StandardDruckerErmitteln = fstrDField(strDefault, ",", 1)
Else
StandardDruckerErmitteln = ""
End If

End Function
'//////////////// Code End //////////////////////////////////////////////////////////////////////////////////////
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Standard-Drucker ändern kannst du.

Vom Ablauf her in etwa so, dass du beim Aufrufen deiner Druckvorlage den aktuellen Standarddrucker in eine Variable wegspeicherst, den gewünschten Drucker als Standard setzt, druckst und abschließend den eigentlichen Standarddrucker wieder herstellst (Hinweis aus eigener Erfahrung: Manche Kollegen neigen dazu, Dir wüste Beschimpfungen und mittelschwere Schreibtischgegenstände an den Kopf zu werfen, wenn Du per Access den Standarddrucker bleibend veränderst).

Module zum Drucker-Wechseln oben.

Papierformat muss ich passen, ich hätte noch ein Codemodul zum Auslesen der verfügbaren Drucker-Schächte, das könnte man ebenfalls einstellen, wenns hilft.

Fonse2010 · 26. Februar 2014

Hallo JOZI,

die Datenbank ist nicht getrennt,
die user arbeiten mit einer accdr-datei
also in der Runtime-Version.

Ich werde mal noch was anders probieren,
wenn ich den Drucker im Aufruf des Formulars gleich mit festlege:
so in etwa:

Forms!MeinFormular.Printer = Application.printers("Druckername")
DoCmd.PrintOut

kann das aber erst übermorgen testen,

Danke

Fonse2010

Fonse2010 · 28. Februar 2014

Hallo Leute,

habe es jetzt so gelöst, in jedem Formular vor dem Ausdruck den passenden Drucker gesetzt:
Form.Printer = Application.Printers("Druckername")

so hat es jetzt geklappt!

Danke

Fonse2010

Office: (Office 2010) access vergißt Druckeinstellungen

access vergißt Druckeinstellungen

access vergißt Druckeinstellungen

access vergißt Druckeinstellungen

access vergißt Druckeinstellungen - Similar Threads - access vergißt Druckeinstellungen

Access Datensatzzähler zu kurz

Installationsfehler OFFICE 2019 ?

MS Access Formular: Datensatz duplizieren mit Unterformularen

Import Daten aus Access Abfrage klappt nicht

Auslesen Windowsbenutzer in einer Datenbank

Auslesen einer Abfrage in VBA Modul

Zugriff aus Access-Datei (xx.accdb)