AW: Druckaufträge zusammenfassen
24.04.2006 10:14:00
Sebastian
Sub Füllen()
zeilennummer = Modul1.Rowindex
If Worksheets(Quelle).Cells(zeilennummer, 1).Value <> "" Then
Worksheets("DV_ext").Activate
picPath = Worksheets(Quelle).Cells(zeilennummer, 31).Value
Worksheets("DV_ext").Cells(1, 9) = Modul1.Ueberschrift
Worksheets("DV_ext").Cells(4, 10) = Modul1.Ueberschrift
Worksheets("DV_ext").Cells(7, 2) = Worksheets(Quelle).Cells(zeilennummer, 1).Value
'Hier stehen noch mehr Zeileneinträge'
If picPath = "" Then
Dim Mldg, Stil, Titel
Mldg = "Bild nicht verfügbar"
Stil = vbokbutton
Titel = "Fehler"
Antwort = MsgBox(Mldg, Stil, Titel)
Worksheets("DV_ext").Image1.Visible = False
Else
bildstr = Worksheets(Quelle).Cells(zeilennummer, 31).Value
bildstr = Mid(bildstr, 8)
Path = Modul1.Pfad & "\" & picPath
Worksheets("DV_ext").Image1.Visible = True
On Error Resume Next
Worksheets("DV_ext").Image1.Picture = LoadPicture(Path)
Modul1.Printpossible = True
Modul1.Rowindex = zeilennummer
If Err.Number <> 0 Then
Worksheets("DV_ext").Image1.Visible = False
Mldg = "Fehler " & Str(Err.Number) & Chr(13) & "Meldung: " & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
Modul1.Printpossible = False
End If
End If
Else
Dim Mldg3, Stil3, Titel3
If Modul1.Nächstes_extern = True Then
Mldg3 = "Letztes Teil Im Katalog"
Modul1.Rowindex = Modul1.Rowindex - 1
End If
If Modul1.Vorheriges_extern = True Then Mldg3 = "Erstes Teil Im Katalog"
If (Modul1.Nächstes_extern = False) And (Modul1.Vorheriges_extern = False) Then Mldg3 = "Kein Teil ausgewählt"
Stil3 = vbokbutton
Titel3 = "Fehler"
Antwort3 = MsgBox(Mldg3, Stil3, Titel3)
Modul1.Printpossible = False
Modul1.Fertig = True
Modul1.Druckerwahl = False
Modul1.Deckblatt = False
End If
End Sub
Sub Katalog_extern_Click()
If Modul1.Druckerwahl = False Then
Antw2 = Application.Dialogs(xlDialogPrinterSetup).Show
If Antw2 = "Falsch" Then Exit Sub
Antw = MsgBox("Aktiver Drucker " & Application.ActivePrinter, vbOKCancel)
If Antw = vbCancel Then Exit Sub
End If
If Modul1.Deckblatt = False Then
DB_Yes_No = MsgBox("Deckblatt benötigt?", vbYesNo)
If DB_Yes_No = Yes Then Worksheets("Deckblatt").PrintOut
End If
Tabelle17.Weiter
End Sub
Sub Weiter()
Anfang:
Tabelle17.Nächstes_ext_Click
If Modul1.Fertig = False Then
If Modul1.Printpossible = True Then
Application.OnTime Now + TimeValue("00:00:02"), "Tabelle17.Drucken"
Application.OnTime Now + TimeValue("00:00:03"), "Tabelle17.Weiter"
Else: Antw = MsgBox("Fehler beim Erstellen der Seite - Bitte Arbeitsverzeichnis prüfen", vbOKOnly)
Exit Sub
End If
Else: Worksheets(Quelle).Activate
End If
Modul1.Drucken = False
End Sub
Sub Drucken()
Worksheets("DV_ext").PrintOut
End Sub