29. april 2004 - 00:11Der er
6 kommentarer og 2 løsninger
Udskrift af adressekartotek på labels
Jeg har et adressekartotek i Excel, som jeg gerne vil udskrive på labels, men hvor indstiller jeg det. Jeg ville også gerne indsætte en ny kolonne mellem A og B, men hvordan gør man det?
Indsætte kolonne sker ved at markere kolonne B og så gå i menuen Indsæt > Kolonne.
Udskrive etiketter gøres ved at indsætte sideskift: Starte en ny side ved at indsætte et sideskift Klik på cellen umiddelbart under og til højre for det sted, hvor du vil starte en ny side. Hvis du klikker på en celle i række 1, vil Microsoft Excel kun indsætte et lodret sideskift. Hvis du klikker på en celle i kolonne A, vil Microsoft Excel kun indsætte et vandret sideskift. Hvis du klikker på en hvilken som helst anden celle i regnearket, indsætter Microsoft Excel både et vandret og et lodret sideskift. Klik på Sideskift i menuen Indsæt.
Synes godt om
Slettet bruger
29. april 2004 - 00:31#5
Det forstår jeg ikke: Starte en ny side ved at indsætte et sideskift??? Starte hvad for en ny side? Indsætte sideskift hvordan?
Lad os antag at hver kunde står på hver sin linje sådan her. | A1 | B1 | C1 | D1 | E1 | |Jens |Jensen|Gade |att. |By
Så kan du bruge den her kode, smid det ind i et modul, og genstart filen, (der skal være en ark2). Når du så stiller dig på den første Celle (Jens) og trykker på F12 udskrives kunden Jens og springer ned på den næste kunde.
Sub Auto_Open() Application.OnKey "{F12}", "labels" End Sub
Sub labels() Application.ScreenUpdating = False Set MinSheet = ActiveSheet ActiveCell.Range("A1:E1").Select Selection.Copy Sheets("Ark2").Select 'ARK2 SKAL EKSISTERE (KAN RETTES) Range("A1").Select ActiveSheet.Paste Range("B1").Select Selection.Cut Destination:=Range("A2") Range("C1").Select Selection.Cut Destination:=Range("A3") Range("D1").Select Selection.Cut Destination:=Range("A4") Range("E1").Select Selection.Cut Destination:=Range("A5") Range("A5").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 MinSheet.Select ActiveCell.Offset(1, 0).Range("A1").Select End Sub
Synes godt om
Slettet bruger
29. april 2004 - 11:41#7
Tak for dein forklarinh, men jeg fatter ikke en brik af den. Hvad vil det sige at smide den ind i et modul, og hvad er det for en fil, jeg skal genstarte, og hvordan gør jeg det? Og hvordan indstiller jeg til den rigtige labelstørrelse
Hvordan ser data i dit regneark ud? Altså hvordan er de enkelte informationer placeret i cellerne?
Jeg går ud fra, at når du siger, at du vil udskrive labels, ønsker du at udskrive på labelark, med fx 3*8 labels eller lignende?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.