Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Print Anzahl ???

Print Anzahl ???
01.02.2004 14:41:45
helena
Hallo
noch einmal denke letze für heute, WAS ist da falsch ???

Sub druck_anzahl()
Dim dAnz As Byte
dAnz  =  InputBox("Wieviele Ausdrucke?,Default=1")
ActiveWindow.SelectedSheets.PrintOut Copies:= dAnz, Collate:=True
End Sub

möchte die Anzahl der Kopien wählen
gruss helena

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Print Anzahl ???
01.02.2004 14:42:56
Knut
Default:=1
Knut
AW: Print Anzahl ???
01.02.2004 14:48:09
helena
Hallo Knut
nein geht nicht komisch ist es kommt Meldung Var. nicht definiert ???
gruss helena
das andere war schreibfehler DANKE
AW: Print Anzahl ???
01.02.2004 14:48:10
Bertram
Hallo Helena,


Sub druck_anzahl()
Dim dAnz As Byte
dAnz = InputBox("Wieviele Ausdrucke?", Default:=1)
ActiveWindow.SelectedSheets.PrintOut Copies:=dAnz, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
AW: Print Anzahl ???
01.02.2004 14:49:30
Nepumuk
Hallo Helena,
versuch es so:

Option Explicit
Sub druck_anzahl()
Dim dAnz As Variant
dAnz = Application.InputBox("Wieviele Ausdrucke?", "Eingabe", Default:=1, Type:=1)
If dAnz <> False Then
dAnz = Fix(dAnz)
If dAnz > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=dAnz, Collate:=True
End If
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
Danke es funktioniert jetzt Print Anzahl ??? (oT)
01.02.2004 14:56:40
helena
^'

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige