|
Hallo,
gem. einer Exceltabelle werden alle Daten in ein entsprechendes Druckprotokoll eingetragen und für den anschließenden Druck angezeigt.
Auszugsweise Code:
......
Private Sub DRMAusdruck()
Dim strName As String
strName = "Start"
DRM.Range("G4") = ActiveSheet.Range("A9")
DRM.Range("I5") = ActiveSheet.Range("C9")
DRM.Range("G7") = ActiveSheet.Range("E9")
DRM.Range("I7") = "Nr.: " & ActiveSheet.Range("D9")
DRM.Range("D12") = ActiveSheet.Range("F9")
DRM.Range("D14") = ActiveSheet.Range("G9")
DRM.Range("E14") = ActiveSheet.Range("H9")
DRM.Range("F14") = ActiveSheet.Range("I9")
DRM.Range("D16") = ActiveSheet.Range("J9")
DRM.Range("E16") = ActiveSheet.Range("K9")
DRM.Range("F16") = ActiveSheet.Range("L9")
DRM.Range("D18") = ActiveSheet.Range("M9")
DRM.Range("D20") = ActiveSheet.Range("N9")
DRM.Range("E20") = ActiveSheet.Range("O9")
DRM.Range("F20") = ActiveSheet.Range("P9")
DRM.Range("G20") = ActiveSheet.Range("Q9")
DRM.Range("D22") = ActiveSheet.Range("R9")
DRM.Range("E22") = ActiveSheet.Range("S9")
DRM.Range("D24") = ActiveSheet.Range("T9")
DRM.Range("E24") = ActiveSheet.Range("U9")
DRM.Range("F24") = ActiveSheet.Range("V9")
DRM.Range("G24") = ActiveSheet.Range("W9")
DRM.Range("H24") = ActiveSheet.Range("X9")
DRM.Range("H26") = ActiveSheet.Range("Y9")
DRM.Range("D28") = ActiveSheet.Range("Z9")
DRM.Range("E28") = ActiveSheet.Range("AA9")
DRM.Range("F28") = ActiveSheet.Range("AB9")
DRM.Range("D41") = Date
DRM.Visible = xlSheetVisible
DRM.PrintPreview
DRM.Visible = xlSheetHidden
Sheets(strName).Select
ActiveSheet.Range("A1").Select
End Sub
.......
Also, die in das Druckprotokoll "DRM" sollen, werden aus einer entsprechenden Tabelle / Zelle - z.Bsp. "ActiveSheet.Range("P9")".
In meiner VBA wird programmtechn. immer wieder neue Daten ermittelt, d.h. alle vorhandenen Daten die in "A9::AB9" gespeichert waren, werden nachden ein neuer Datensatz ermittelt worden ist jetzt in "A9::AB9" neu eingefügt und die alten - vorherigen - werden in"A10::AB10" kopiert, u.s.w.
Meine Frage: Gem. dem Code werden immer nur die Daten aus Zeile 9 gedruckt, ist ja auch okay. Jetzt stellte ich fest, da ich mal vergessen hatte zu drucken, das neuer Dateneingabe alle Daten eine Zeile runter kopiert worden sind und gem. meinem Code, z.Bsp. alle Daten in Zellen 10, ff nicht mehr gedruckt werden können.
Muß ich für jeden Zellenbereich immer wieder einen neuen Code schreiben oder geht das über ein Auswahlfenster, ect.
Ich krieg es nicht hin, aber kann nicht von 100-te Code screiben
Vielleicht kann einer helfen oder Hinweis als Ansatz geben?
|