|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2008 08:49:48 |
Holger |
|
|
 Aw:Bestimmte Druckposition in Excel-Makro definier |
18.10.2008 11:28:46 |
Holger |
|
|
|
18.10.2008 17:23:23 |
Holger |
|
|
|
18.10.2008 17:28:20 |
Holger |
|
|
|
19.10.2008 10:20:59 |
Holger |
|
|
|
20.10.2008 07:10:34 |
Holger |
|
|
Von:
Holger |
Datum:
18.10.2008 11:28:46 |
Views:
1304 |
Rating:
|
Antwort:
|
Thema:
Aw:Bestimmte Druckposition in Excel-Makro definier |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aw:Bestimmte Druckposition in Excel-Makro definier |
18.10.2008 11:28:46 |
Holger |
|
|
|
18.10.2008 17:23:23 |
Holger |
|
|
|
18.10.2008 17:28:20 |
Holger |
|
|
|
19.10.2008 10:20:59 |
Holger |
|
|
|
20.10.2008 07:10:34 |
Holger |
|
|