Thema Datum  Von Nutzer Rating
Antwort
18.10.2008 08:49:48 Holger
NotSolved
18.10.2008 11:28:46 Holger
NotSolved
18.10.2008 17:23:23 Holger
NotSolved
18.10.2008 17:28:20 Holger
NotSolved
19.10.2008 10:20:59 Holger
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Bestimmte Druckposition in Excel-Ma
 20.10.2008 07:10:34 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
20.10.2008 07:10:34		 Views:
965		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Bestimmte Druckposition in Excel-Ma
Hallo Holger,

hat funktioniert! Vielen Dank.

Gruß,
Holger

Holger schrieb am 19.10.2008 10:20:59:

Hallo Holger,
einen Befehl, eine Leerseite zu drucken, kenne ich für Excel nicht. Selektiere doch einfach eine leere Zelle und lasse sie drucken. Füge z.B. hinter deiner Zeile Selection.PrintOut Copies:=1 ein (ungetestet!):
ActiveSheet.Range(Cells(...), Cells(..)).Select 'Adresse mit leere(n) Zelle(n)
Selection.PrintOut Copies:=1
Gruß
Holger


Holger schrieb am 18.10.2008 17:28:20:

Kurze Ergänzug nach zweitem Lesen. Mein Anliegen ist nicht gut formuliert.
Es ist mein Anliegen, dass für bestimmte Zwecke der Excel-Tabelle absichtlich eine leere Seite zwischen jedem bedruckten Blatt liegen soll.

Holger schrieb am 18.10.2008 17:23:23:

Hallo Holger!

Vielen Dank für die erfolgreiche Antwort. Um das Problem noch ein wenig zu verkomplizieren, noch folgende Ergänzug zu meiner Frage:

Das Drucken auf jeweils einem Blatt funktioniert. Es gibt aber auch den Fall, dass zwischen jedem Druck eine Seite nicht bedruckt wird, d.h. nur durch den Drucker gezogen werden soll.

Mit Application.CentimetersToPoints(...) und einer cm-Angabe größer als die Seite funktioniert es nicht. Da wird der Durckbefehl einfach nicht weiter an den Drucker geleitet.

Dankeschön,
Gruß Holger


Holger schrieb am 18.10.2008 11:28:46:

Hallo Holger,
du kannst z.B. die TopMargin-Methode der worksheets nutzen:
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(...) '... durch cm-Angabe ersetzen
Diese Zeile muss vor der Zeile
Selection.PrintOut Copies:=1
stehen.
Gruß
Holger

Holger schrieb am 18.10.2008 08:49:48:

Hallo!
Ich habe für eine Excel-Tabelle ein kleines Makro geschrieben, welches folgende Schritte erfüllen soll.
1. Wählt die Zellen xx - yy aus und definiert sie zum Druckbereich
2. markiert diesen Bereich und gibt ihn zum Drucken aus.
3. Druckt
4. springt 4 Zeilen in der Tabelle weiter und führt 1.-3. aus.
5. Führt 1.-4. x vorher definierte Male aus.

Das Makro funktioniert soweit gut. Problem ist aber, dass ich den Druck bei 3. an den Anfang jeweils eines neuen Blattes bekommen. Ich möchte aber AN EINE VORHER DEFINIERTE STELLE im unteren Bereich des Blattes drucken.

Bitte verzeiht meine "einfältige" Programmierweise. Man hätte bestimmt auch eleganter programmieren können. Bin halt nur ein Gelegenheitsprogrammierer.

Hier das Makro:

Sub Spaltendruck()
Dim lAnzahl As String
Dim i As Long
Dim Var1 As Long
Dim Var2 As Long
Dim x As Long
Dim My_Range As String
Anf:


lAnzahl = InputBox("Wie oft soll das Makro laufen ?", , 3)
On Error Resume Next 'enables error handling
'Prüfen ob eine Zahl eingegeben wurde
If IsNumeric(lAnzahl) Then
'if Cancel is chosen then InputBox returns empty string
'Range("A1:D5").Select
'My_Range = InputBox("Enter the name of the area to print:")
'If Err > 0 Then MsgBox "Name or range specified is not valid."




For i = 1 To CLng(lAnzahl)
'Druckmakro
x = i * 4
ActiveSheet.Range(Cells(13, 1), Cells(15, 21)).Offset(x, 0).Select

'Druckbereich festlegen FUNKTIONIERT NICHT
'ActiveSheet.PageSetup.PrintArea = "$A$77:$U$79"

Selection.PrintOut Copies:=1
MsgBox "Makro Start Nr.: " & i
Next i
Else
MsgBox "Bitte ein Zahl eingeben !", vbInformation
GoTo Anf
End If

End Sub




Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.10.2008 08:49:48 Holger
NotSolved
18.10.2008 11:28:46 Holger
NotSolved
18.10.2008 17:23:23 Holger
NotSolved
18.10.2008 17:28:20 Holger
NotSolved
19.10.2008 10:20:59 Holger
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Bestimmte Druckposition in Excel-Ma
 20.10.2008 07:10:34 Holger
NotSolved