Sub AuswahlenExportierenPDFC()
	Dim objPDFC As PDFCreator.clsPDFCreator
	Dim intI As Integer
    
	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 intI = 1 To Selection.Areas.Count
		With objPDFC
			.cOption("UseAutosave") = 1
			.cOption("UseAutosaveDirectory") = 1
			.cOption("AutosaveDirectory") = "D:\PDF"
			.cOption("AutosaveFilename") = _
				"Auswahl" & CStr(intI)
			.cOption("AutosaveFormat") = 0
			.cOption("AutosaveStartStandardProgram") = 1
			.cClearCache
		End With

		Selection.Areas(intI).PrintOut _
			ActivePrinter:="PDFCreator"

		Do Until objPDFC.cCountOfPrintjobs = 1
			DoEvents
		Loop
		objPDFC.cPrinterStop = False
        
		Do Until objPDFC.cCountOfPrintjobs = 0
			DoEvents
		Loop
	Next

	objPDFC.cClose
	Set objPDFC = Nothing
End Sub
