Sub AlleBltterSeparatExportierenPDFC()
	Dim objPDFC As PDFCreator.clsPDFCreator
	Dim objBlatt As Object
        
	On Error Resume Next

	Set objPDFC = New PDFCreator.clsPDFCreator
	If objPDFC.cStart("/NoProcessingAtStartup") = _
		False Then
		MsgBox "PDFCreator ist schon aktiv. " & _
			"Bitte beenden Sie den Prozess."
		Exit Sub
	End If
    
	For Each objBlatt In ActiveWorkbook.Sheets
		If Not IsEmpty(objBlatt.UsedRange) Then
			With objPDFC
				.cOption("UseAutosave") = 1
				.cOption("UseAutosaveDirectory") = 1
				.cOption("AutosaveDirectory") = "D:\PDF"
				.cOption("AutosaveFilename") = _
					objBlatt.Name
				.cOption("AutosaveFormat") = 0
           .cOption("AutosaveStartStandardProgram") _
					= 1
				.cClearCache
			End With
    
			objBlatt.PrintOut ActivePrinter:="PDFCreator"
    
			Do Until objPDFC.cCountOfPrintjobs = 1
				DoEvents
			Loop
			objPDFC.cPrinterStop = False
            
			Do Until objPDFC.cCountOfPrintjobs = 0
				DoEvents
			Loop
		End If
	Next

	objPDFC.cClose
	Set objPDFC = Nothing
End Sub
