Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro"Drucken auf speziellen Drucker"

Makro"Drucken auf speziellen Drucker"
16.05.2003 18:00:22
B. Schneider
Hallo wie muss ich das VB ändern damit
Exel nicht einfach auf den Standart Drucker
druckt, sondern die Printerauswahl bringt
wie mit Strg+P

Code:
Sub DruckenFaxen()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Zweite Frage :
Wie muss dieser Code abgeändert werden damit nicht
das Geasammte Blatt Copiert wird sondern nur von
Zelle A3 bis AK56 ?
Code:
Public Sub Blattkopie()
Dim Anzahl As Byte, Tabelle As Worksheet, Adresse As String
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
ActiveSheet.Copy
ActiveSheet.Unprotect "bes"
ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
ActiveSheet.Protect "bes"
ActiveWorkbook.SaveAs Filename:= _
"D:\Berechnungen\" & Range("E7") & Format(Now, " hh-dd.mm.yy") & ".xls"
ActiveWorkbook.Close False
With Application
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub

Many THX Bernd

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro"Drucken auf speziellen Drucker"
16.05.2003 18:10:08
th.heinrich

hallo Bernd,

zu 1)

von Hans cd.

zu 2)

AktiveSheet.Range("A3:AK56").Copy

gruss thomas

Fehlermeldungen
16.05.2003 18:34:43
B.Schneider

Bei 1.
öffnet sich nicht das Auswahlfenster, statt dessen
Mauelt Exel im Debugger an dem Standart Drucker
"FritzFax" mit der Aplication rum. :(

Bei 2.
Laufzeitfehler 424
Objekt erforderlich, ich habe die Zeile so eingefügt:

Public Sub Blattkopie()
Dim Anzahl As Byte, Tabelle As Worksheet, Adresse As String
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
AktiveSheet.Range("A3:AK56").Copy
ActiveSheet.Unprotect "bes"
ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
ActiveSheet.Protect "bes"
ActiveWorkbook.SaveAs Filename:= _
"D:\Berechnungen\" & Range("E7") & Format(Now, " hh-dd.mm.yy") & ".xls"
ActiveWorkbook.Close False
With Application
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub

Grüße Bernd, und vielen Dank ! :))

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige