Hallo zusammen
Habe zwei Fragen an die Profis hier :
Ich habe mich zum einen mit der "Wander"Port Problematik beim Drucken via VBA beschäftigt .
vorher :
Application.ActivePrinter = "DYMO LabelWriter 450 auf Ne06:
Range("C4").Select
Selection.PrintOut Copies:=Range("H5")
Nun habe ich hier im Forum gelesen , das man den Drucker auch ohne die Portangabe ansprechen kann ,also :
ActiveSheet.PrintOut ActivePrinter:="DYMO LabelWriter 450"
Aber wie muss ich hier die Zelle H5 für die Anzahl der Kopien einbinden ? Wenn ich das einfach hintereinander setze , habe ich natürlich 2 Druckbefehle , also immer ein Label mehr als benötigt.
ActiveSheet.PrintOut ActivePrinter:="DYMO LabelWriter 450"
Range("C4").Select
Selection.PrintOut Copies:=Range("H5")
Der Dymo ist ein Label Drucker (Deswegen wird vorher nur die Zelle C4 für den Druckbereich ausgewählt) .
Die zweite Frage hat mit der Anbindung von Hyperlinks zu tun . Ich lasse mir eine Email in Outlook generieren und der Hyperlink (vorhandene .pdf auf Datenträger) aus Spalte P der markierten Zeile wird mir als Anhang mit eingefügt . Hier das Beispiel :
spalte = ActiveCell.Column
zeile = ActiveCell.Row
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Recipients.Add "gabiköster@rtl.de"
.Subject = "Statusbericht " & Cells(ActiveCell.Row, 5) & " Activity " & Cells(ActiveCell.Row, 6)
.body = "Hallo zusammen !" & vbCrLf & vbCrLf & "Folgende Details ....... : " _
.Attachments.Add Cells(ActiveCell.Row, 16).Value
.ReadReceiptRequested = False
.GetInspector.Display
End With
Set olApp = Nothing
End Sub
Wie muss ich den Fehler abfangen , wenn in der Spalte P mal keine Datei bzw. kein Hyperlink vorhanden ist ?
Kann mir da jemand helfen ?
Über eine Antwort oder einen Lösungsvorschlag würd ich mich sehr freuen !
Einen schönen Abend !
Dirk