Hallo Mackie
Danke für den Vorschlag. Das könnte gehen, jedoch habe ich Probleme mit dem Makro. Bisher habe ich nur einfach erstellt und daran lange gebraucht. Falls Du möchtest wäre ich Dir um einen Vorschalg sehr dankbar.
Was ich habe ist der Drucker : ) mit dem Rest klappt es nicht. : (
Private Sub CommandButton1_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\" & Environ("username") & "\Desktop\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub PDF_Print_Sheet()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\" & Environ("username") & "\Desktop\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
|