Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

drucken

drucken
30.04.2006 17:32:00
tina
hallo,
ich habe da ein problem.
so schaut meine tabelle aus:
 
  
 ABCDE
1Kunde: 0147BrigitteMustermannMustergasse 199999 Musterhausen
2Kunde: 0148HansBeispielBeispielstrasse 288888 Beispielhausen
3Kunde: 0149RainerZufallZufallsweg 377777 Zufallshausen
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

nun möchte ich diese daten drucken.und zwar die daten der reihe 1 auf einem blatt, auf dem nächsten blatt die reihe 2usw.

also jede reihe soll auf einem neuen blatt gedruckt werden.

wie kann/muss ich da was einstellen?

vielen lieben dank für eure mühe

gruss Tin@

                    


            


    
    



    
    

    
    
    

    

        

                        
            3
            
Beiträge zum Forumthread

            
Beiträge zu diesem Forumthread

        

    

    

                    

                
                Betreff
            

            
Datum

            
Anwender

            

    
    


    
Anzeige

    

        
                    
            
                
    



    
    



    
            
                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: drucken
                                            

                    

                                                    30.04.2006 18:11:45
                                            

                                

                                            Tassos
                                    

            

        

        

                            
Hallo Tina

Probier es so:

Option Explicit

Sub PrintIt()
Application.ScreenUpdating = False
Dim rng As Range, z As Range, rngA$
Set rng = Range("A1:A" & Range("A65536").End(xlUp).Row)
With Sheets(1).PageSetup
For Each z In rng
If Not z Is Nothing Then
rngA = z.Resize(, 6).Address 'evtl anpassen
.PrintArea = rngA
'Sheets(1).PrintOut 'Copies:=1, Collate:=True
MsgBox rngA
End If
Next
'.PrintArea = ""
End With
End Sub


Gruss

Tassos

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: drucken
                                            

                    

                                                    30.04.2006 18:18:18
                                            

                                

                                            Nepumuk
                                    

            

        

        

                            
Hallo Tin@,

versuch es mal so:



Option Explicit

Public Sub test()
    Dim lngRow As Long
    With Tabelle1 'anpassen !!
        For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
            .PageSetup.PrintArea = .Range(.Cells(lngRow, 1), .Cells(lngRow, 5)).Address
            .PrintOut
        Next
        .PageSetup.PrintArea = ""
    End With
End Sub


Gruß

Nepumuk


		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            danke euch beiden o.t.
                                            

                    

                                                    30.04.2006 19:28:44
                                            

                                

                                            tina
                                    

            

        

        

                            
gruss Tin@

                    


            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige