Avatar billede Slettet bruger
29. april 2004 - 00:11 Der 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?
Avatar billede jkrons Professor
29. april 2004 - 00:18 #1
Excel har ikke umiddelbart en label funktion, men du kan brevflette til labels i -Word.

For at indsætte en ny kolonne mellem A og B højreklikker du på B og vælger Indsæt.
Avatar billede Slettet bruger
29. april 2004 - 00:20 #2
Men så skal jeg vel have det over i Word. Kan man det?
Avatar billede jkrons Professor
29. april 2004 - 00:26 #3
Du kan brevflette direkte fra Excel til Word.
Avatar billede henninga Novice
29. april 2004 - 00:27 #4
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.
Avatar billede 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?
Avatar billede fagpoler Novice
29. april 2004 - 09:01 #6
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
Avatar billede 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
Avatar billede jkrons Professor
29. april 2004 - 15:13 #8
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?
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester