title image


Smiley schon erledigt
ST_DRUCKER = Application.ActivePrinter

Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show

If Druckerwahl = True Then

Sheets(Array("Deckblatt", "test")).Select

Sheets("Deckblatt").Activate

ActiveWindow.SelectedSheets.PrintOut Copies:=Me.TextBox5.Value

Sheets("deckblatt").Select

End If

GoTo Ende

fehler:

Kopf = "Druckerwechsel"

Stil = vbOKOnly + vbExclamation

MsgBox Err.Description, Stil, Kopf

Ende:

On Error Resume Next

Application.ActivePrinter = ST_DRUCKER



Gruß

Christian
Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: