Leere Seite bei Ausdruck
09.09.2004 19:12:12
Herbert
beim Ausdruck einer Tabelle kommt zuerst immer eine leere Seite,kann man das abstellen?
Die Anweisung:
Option Explicit
Sub Seite_drucken()
Worksheets("Kalender").Activate
Dim antwort As Integer
Dim anzahl
anzahl = Application.InputBox(vbNewLine & vbNewLine & _
" Wieviele Kopien ? ", _
" Drucker-Anfrage")
If anzahl = "" Then antwort = MsgBox(" Keine Kopien ?", _
vbOK, " Alarm !!")
If antwort = vbOK Then
Exit Sub
End If
antwort = MsgBox("Ausdruck starten ?", vbYesNo + vbQuestion, _
" Drucker")
If antwort = vbNo Then
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=anzahl ', Collate:=True
End Sub
für Hilfe möchte ich mich schon im Voraus bedanken!
Manchmal frag' ich mich: warum sind alle so gescheit und ich nicht,wo bekommen die das bloß her?
Grüße Euch alle,Herbert
Anzeige
