Private Declare Sub Sleep Lib "kernel32.dll" _
	(ByVal dwMilliseconds As Long)

Sub AlleMarkiertenBltterGemeinsamExportierenPDFC()
	Dim objPDFC As PDFCreator.clsPDFCreator
	Dim objBlatt As Object
	Dim intZhler As Integer
        
	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
	    
	With objPDFC
		.cOption("UseAutosave") = 1
		.cOption("UseAutosaveDirectory") = 1
		.cOption("AutosaveDirectory") = "D:\PDF"
		.cOption("AutosaveFilename") = _
			"MarkierteBltter"
		.cOption("AutosaveFormat") = 0
		.cOption("AutosaveStartStandardProgram") _
			= 1
		.cClearCache
	End With
    
	For Each objBlatt In ActiveWindow.SelectedSheets
		If Not IsEmpty(objBlatt.UsedRange) Then
			objBlatt.Select
			objBlatt.PrintOut ActivePrinter:="PDFCreator"
			intZhler = intZhler + 1
		End If
	Next
    
	If intZhler > 0 Then
		Do Until objPDFC.cCountOfPrintjobs = intZhler
			DoEvents
			Sleep 1000
		Loop
        
		Sleep 1000
		objPDFC.cCombineAll
		Sleep 1000
            
		objPDFC.cPrinterStop = False
            
		Do Until objPDFC.cCountOfPrintjobs = 0
			DoEvents
			Sleep 1000
		Loop
	End If

	objPDFC.cClose
	Set objPDFC = Nothing
End Sub
