AW: Noch nicht ganz
02.12.2018 09:50:49
Beverly
Hi Helmut,
löse unbedingt die verbundenen Zeilen in Tabelle Lagerbestand auf!!, die Zeilenhöhe kann man schließlich anpassen und verbundene Zellen machen nur Ärger. Dann kannst du nach dem Drucken den Lagerbestand wie folgt aktualisieren:
Private Sub Drucken_Click()
ActiveSheet.Unprotect Password:="1234"
ActiveSheet.PageSetup.PrintArea = "b1:Y41" 'Druckbereich wird markiert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("b3 ") & Range("j3 ") & Range("j1 ") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Name des Dokuments = Zelle B1 + aktuelles Datum(In diesem Fall QR Codenummer + Datum)
'ThisWorkbook.Path: PDF Dokument wird im Ordner der Exceldatei abgespeichert wird
Range("B1").Select
'########################################################################################### _
Dim lngLetzte As Long
Dim oleBox As OLEObject
' Lagerbestand aktualisieren
With Worksheets("Lagerbestand")
lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 7)), _
.Cells(Rows.Count, 7).End(xlUp).Row, Rows.Count)
.Range(.Cells(5, 7), .Cells(lngLetzte, 7)).Copy
.Range("F5").PasteSpecial Paste:=xlValues
End With
' Checkboxen zurücksetzen und Zellen in Spalte F und I löschen
For Each oleBox In OLEObjects
If TypeName(oleBox.Object) = "CheckBox" Then
oleBox.Object.Value = False
oleBox.TopLeftCell.Offset(0, -1).ClearContents
oleBox.TopLeftCell.Offset(0, 2).ClearContents
End If
Next
' Range("C1").Select
ActiveSheet.Protect Password:="1234"
End Sub
Hinweis - in deinem Code zum Drucken steht folgendes:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("b3 ") & Range("j3 ") & Range("j1 ") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Name des Dokuments = Zelle B1 + aktuelles Datum(In diesem Fall QR Codenummer + Datum)
Entweder ist der Kommentar falsch oder der Code, denn der bezieht sich auf B3 und nicht auf B1