Thema Datum  Von Nutzer Rating
Antwort
Rot Anderen Druckbereich wählen
20.08.2018 00:20:11 winny
NotSolved
20.08.2018 17:45:26 Gast25364
NotSolved
20.08.2018 18:48:25 winny
NotSolved
20.08.2018 18:57:16 winny
NotSolved

Ansicht des Beitrags:
Von:
winny
Datum:
20.08.2018 00:20:11
Views:
102
Rating: Antwort:
  Ja
Thema:
Anderen Druckbereich wählen

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?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Anderen Druckbereich wählen
20.08.2018 00:20:11 winny
NotSolved
20.08.2018 17:45:26 Gast25364
NotSolved
20.08.2018 18:48:25 winny
NotSolved
20.08.2018 18:57:16 winny
NotSolved