Office: Drucken --> erst Druckeigenschaften öffnen

Dutt_80 · 20. Oktober 2002

Hallo nochmal,
Wenn ich auf den button drucken für einen bericht aus dem formular klicke, druckt er mir sofort, ohne jeglich druckeinstelklungen abzufragen den bericht!
Ich will jedich, wenn ich den drucken button aus dem formular klicke, das er mir ERST das druckeignschaftsfenster öffnet, da wo man dann verschieden drucker und druckeigenschaften auswählen kann!!!!
Ich hatte mal einen code, der war recht simpel, hab ihn aber, keine ahnung, verloren! *frown.gif*
Naja, hoffe einer von euch kann mir helfen! *Smilie
greez Dutt

:)

Thomas Braun · 21. Oktober 2002

Hi - den Druckerdialog rufst du mit:
RunCommand acCmdPrint
auf.

Thomas

Dutt_80 · 21. Oktober 2002

coool! muchas gracias! *top.gif*

Dutt_80 · 21. Oktober 2002

nun, er druckt mir aber jetzt immer das formular aus dem ich den bericht drucken willö!
meine code sieht wie folgt aus!

P

Code:

 Private Sub Befehl42_Click()
On Error GoTo Err_Befehl42_Click

Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "Schulung_Zertifikat"
stLinkCriteria = "[Projekte_ID]=" + LTrim(Me![Projekte_ID])
RunCommand acCmdPrint
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria

Exit_Befehl42_Click:
Exit Sub

Err_Befehl42_Click:
MsgBox Err.Description
Resume Exit_Befehl42_Click

End Sub [/quote]

er soll mir einfach nur das druck eigenschaftsfenster bringer, und dann, wenn ich OK klicke, soll er mir den bericht mit den gefilterten datensätzen den einstellungen nach drucken!!
was muss ich ändern??

khs-hh · 21. Oktober 2002

Du musst den Report in der Druckvorschau (acViewPreview) öffnen.

Das Druckkommando darf erst danach aufgerufen werden. Allerdings geht das AFAIK nicht an dieser Stelle im Code, der den Report aufruft.

Ich mache das immer so, dass ich ein Makro habe, welches den Printbefehl aufruft. Dieses biete ich dem Benutzer in einem Menü an, dass ich allen Reports zuweise. Das Menü enthält alle an dieser Stelle benötigten Optionen: schließen (= nicht drucken), drucken und weiteres abhängig von der Anwendung)

Thomas Braun · 21. Oktober 2002

So rum geht das nicht, du musst zuerst den Bericht erstellen. Damit der Drucker auch weiss, was er zu drucken hat. Wenn der Bericht nicht angezeigt werden soll, kannst du ihn ja minimiert öffnen. Solltest dann aber auch nicht vergessen, ihn wieder zu schließen.

Thomas

Alexandra, die zweite · 2. April 2003

hi,

da hat meine Suche doch grad folgendes gefunden...

Wenn der Bericht nicht angezeigt werden soll, kannst du ihn ja minimiert öffnen. Solltest dann aber auch nicht vergessen, ihn wieder zu schließen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir denn jemand sagen, wie ich den Bericht minimiert öffne und ihn nach dem Drucken wieder schließe?

Danke!

Gruß,
Alex

Nouba · 2. April 2003

Hallo Alex,

Du kannst den Bericht auch versteckt öffnen.
Code:

docmd.OpenReport "DeinReport", acViewPreview,,,acHidden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ansonsten kannst Du nach dem Öffnen ein DoCmd.Minimize absetzen.

Alexandra, die zweite · 2. April 2003

hi,

Original geschrieben von Nouba

Du kannst den Bericht auch versteckt öffnen.
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

docmd.OpenReport "DeinReport", acViewPreview,,,acHidden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hhmm .. also so klappt das nicht, da es zuviele Parameter für openreport sind. Vielleicht kurz zur Sachanlage, ich will im Grunde genommen das gleiche wie Dutt. In einem Formular gibt's einen Button, der mir einen Report direkt drucken soll. Es soll nur vorher eine Auswahl kommen, auf welchen Drucker man drucken möchte

Das minimieren schließe ich aus, da der Report teilweise (andere Button in anderen Formularen) auch in der Vorabansicht geöffnet wird

Gruß,
Alex

Nouba · 2. April 2003

Hallo Alex,

meine OL-Hilfe gibt folgendes aus:

expression.OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)
...
WindowMode Optional AcWindowMode.

AcWindowMode can be one of these AcWindowMode constants.
acDialog
acHidden
acIcon
acWindowNormal default
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich benutze AXP und kann leider zu Hause nicht prüfen, ob der Aufruf auch abwärtskompatibel ist.

Zur Druckerauswahl könntest Du folgenden Kode verwenden.

Option Compare Database
Option Explicit

'************************
' Printer setup module
' Set/retrieves the default printer - originaly for VB6
' Works for A97/a2000
' This is minimal code.
' Albert D.Kallal - 01/13/2002, kallal@msn.com
' Rev history: Date Who notes
' 01/13/2002 Albert D. kallal
'
' I wrote this after looking at some the code on the net. Some of the routines
' to change a printer were approaching 500 + of lines of code. Just the printer
' constant defs was over 100 lines of code! Yikes! (not mention the whole thing being
' 4 or more modules! How in heck is one supposed to add a simple printer change to
' ones app? The solution is below!

' In addition the code on dev's site has some bugs, and will cause windows to show
' *more* than one printer as the default. This is especially noticeable on windows ME. The
' code here does NOT have this problem.
' I have not had time to clean this code up...it is "as is"

' I use only TWO API's (the 3rd one is optional). There is a total of only 4 functions!
' KISS is the word. Keep it simple stupid. I don't care about device drivers, or the
' port number. All these routines just work with the simple printer name. If you do
' actually care about the device driver and port stuff..then use the one of many
' examples available on the net. Those other examples also deal with margins, orientation
' etc.
'
' You can paste this code into a module..and away you go
'
'************************
' How to use
' To get the default printer
' debug.print GetDefaultPrinter
' To set the default printer
' debug.print SetDefaultPrinter("HP Laser JET")
' above returns true if success.
' 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 = GetDefaultPrinter
' the first line loads up the combo box, the 2nd sets
' the combo to the default.
'
' that is all there folks!
'
' Thus, when printing a report, you can:
'
' 1) save the default printer into a string
' strCurrentPtr = GetDefaultPrinter
' 2) switch to your report printer
' SetDefaultPrinter strReportsPtr
' 3) print report
' 4) switch back to the default printer
' SetDefaultPrinter strCurrentPtr
'

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

Private 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

Function SetDefaultPrinter(strPrinterName 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", strPrinterName, "", strBuffer, Len(strBuffer))

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

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

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

' Below is optional, and should be done. It updates the existing windows
' so the "default" printer icon changes. If you don't do the below..then
' you will often see more than one printer as the default! The reason *not*
' to do the SendMessage is that many open applications will now sense the change
' in printer. I vote to leave it in..but your case you might not want this.
'

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

Else
SetDefaultPrinter = False
End If

End Function

Function GetDefaultPrinter() 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
GetDefaultPrinter = fstrDField(strDefault, ",", 1)
Else
GetDefaultPrinter = ""
End If

End Function

Function GetPrinters() As String

' this routine returns a list of printers, separated by
' a ";", and thus the results are suitable for stuffing into a combo box

Dim strBuffer As String
Dim strOnePtr As String
Dim intPos As Integer
Dim lngChars As Long

strBuffer = Space(2048)
lngChars = GetProfileString("PrinterPorts", vbNullString, "", strBuffer, Len(strBuffer))

If lngChars > 0 Then
intPos = InStr(strBuffer, Chr(0))
Do While intPos > 1
strOnePtr = Left(strBuffer, intPos - 1)
strBuffer = Mid(strBuffer, intPos + 1)
If GetPrinters <> "" Then GetPrinters = GetPrinters & ";"
GetPrinters = GetPrinters & strOnePtr
intPos = InStr(strBuffer, Chr(0))
Loop
Else
GetPrinters = ""
End If

End Function

Public Function testPrintersGet()
Debug.Print GetDefaultPrinter
Debug.Print GetPrinters
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Alexandra, die zweite · 2. April 2003

hi nouba,

Ich nutze hier A2K. Die von dir genannte Funktion, steht, afaik, wirklich nur unter AXP zur Verfügung

Den Code zur Druckerauswahl möchte ich nicht nutzen, da dadurch der Standartdrucker unter Windows geändert wird (klar könnte man den auslesen und zurücksetzen, aber .. puuuuh).

Darum wollte ich gerne wissen, ob's nicht 'ne Möglichkeit gibt, einen Bericht minimiert zu öffnen (muss nicht mal sein) und ihn vor allem nach dem Drucken zu schließen; also soetwas wie docmd.CloseReport "Reportname"

Gruß,
Alex

Nouba · 2. April 2003

Hallo Alex,

' Thus, when printing a report, you can:
'
' 1) save the default printer into a string
' strCurrentPtr = GetDefaultPrinter
' 2) switch to your report printer
' SetDefaultPrinter strReportsPtr
' 3) print report
' 4) switch back to the default printer
' SetDefaultPrinter strCurrentPtr
'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn Du so vorgehst, kannst Du den Bericht direkt ohne Voransicht drucken. Im Koding ist auch beschrieben, wie Du die Drucker in eine Combobox bringst.

Die Druckvorschau kann mit DoCmd.Close acReport, "DeinBericht" geschlossen werden.

Office: Drucken --> erst Druckeigenschaften öffnen

Drucken --> erst Druckeigenschaften öffnen

Drucken --> erst Druckeigenschaften öffnen

Drucken --> erst Druckeigenschaften öffnen

Drucken --> erst Druckeigenschaften öffnen

Drucken --> erst Druckeigenschaften öffnen - Similar Threads - Drucken Druckeigenschaften öffnen

Ausdruck eines Etiketts auf verschiedenen PCs steuern

Tabellenränder beim Druck ausblenden

pdf drucken mit button in excel einfügen

Auswahlfenster zum drucken von Mitarbeiterblätter

Werte in Spalten Kopieren und drucken

Folien im benutzerdiferenzierten Maß drucken

User form Drucken Position