ich habe hier ein Macro in einer Excel-Datei, am ende des Makros soll das erstellt Dokument ausgedruckt werden. Allerding muss der Drucker das Papier aus dem Tray 2 nehmen denn dort ist das Briefpapier mit dem Firmenlogo....
Wie ist das zu lösen ??
bisher habe ich leider nur dies:
Sub drucken()
Dim Druck As Variant
Print_ok = 1
'Druckerpfad
ActivePrinter = "\\CVPR0AKYBA\LSPKYBA0034"
If Fliesstext_Art <> 3 And Fliesstext_Art <> 4 Then
Druck = MsgBox("Wollen sie das erstelle Dokument drucken ?", vbYesNo, "Drucken ???")
If Druck = 6 Then
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False
Print_ok = 0
Else
Print_ok = 0
End If
Else
End If
If Print_ok = 1 Then
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False
Else
End If
End Sub
Vielen Dank im Vorraus
MfG
Alex