Avatar billede Hestehat Seniormester
19. december 2011 - 19:59 Der er 12 kommentarer og
1 løsning

Printknap

Jeg vil gerne lave en knap i et excel ark, der kan skrive ud.

Jeg er bestemt ikke fortrolig med Visual Basic, så jeg er helt på bar bund.

Det skal være sådan at når man trykker på knappen, så kigger den efter om der er indtastet noget i nogen bestemte celler, og hvis der er, så udskriver et bestemt område af arket.

Er det noget der kan lade sig gøre?
Avatar billede Ialocin Novice
19. december 2011 - 21:03 #1
Hej Hestehat

Hvilken Excel version skriver du i ??


Kan du bruge følgende VBA kode til en start ...


'kommandoknap - Udskriv
Private Sub cmdUdskriv_Click()

    'kald proceduren Udskriv
    Udskriv

End Sub



'Udskriv - procedure
Sub Udskriv()
 
    'hvis celle A1 på Sheet3 har værdien 1, så
    If Sheet3.Range("A1").Value = 1 Then
               
        'åbn print dialogboksen
        Application.Dialogs(xlDialogPrint).Show

    End If
               
         
End Sub


Sig til, hvis du har brug for yderligere hjælp ?

Med venlig hilsen, Nicolai
Avatar billede Hestehat Seniormester
19. december 2011 - 21:53 #2
Det skubber mig helt sikker i den rigtige retning!

Er det muligt at springe dialogboksen over og sætte den til at skrive ud direkte?

Og, hvis man kan skrive direkte ud, kan man så nøjes med at udskrive en markering?
Avatar billede Ialocin Novice
19. december 2011 - 22:05 #3
Hej Hestehat

Du kan sagtens springe dialogboksen over ...

Har du en tanke omkring, hvordan du vil definere din markering, altså hvad bestemmer hvilket område der skal udskrives ?

Med venlig hilsen, Nicolai
Avatar billede Hestehat Seniormester
19. december 2011 - 22:13 #4
Hvis der er tekst i en bestemt celle, så skal et bestemt område markeres og udskrives

Min tanke er at det bare skal være en konstatering af om der er tekst eller ej, altså ikke om det er en specifik tekststreng.
Avatar billede Ialocin Novice
19. december 2011 - 22:17 #5
Hej Hesthat

Er det samme område/markering der skal udskrives, hver gang den bestemte celle ikke er tom ?

Med venlig hilsen, Nicolai
Avatar billede Hestehat Seniormester
19. december 2011 - 22:21 #6
Jæbs
Avatar billede Ialocin Novice
19. december 2011 - 22:27 #7
Okay, har du evt. koordinaterne ??
Avatar billede Hestehat Seniormester
19. december 2011 - 22:32 #8
Celle c6
Avatar billede Ialocin Novice
19. december 2011 - 22:42 #9
Hej Hestehat

Hvad så med følgende:

'Udskriv - procedure
Sub Udskriv()
 
    'hvis celle C6 på Sheet3 er forskellig fra tom, så
    If Sheet3.Range("C6").Value <> "" Then

        'udskriv området A1:C10 på sheet3
        Worksheets("Sheet3").PageSetup.PrintArea = "$A$1:$C$10"
       
    End If
         
End Sub


Med venlig hilsen, Nicolai
Avatar billede Hestehat Seniormester
19. december 2011 - 23:06 #10
Jeg tror jeg er rigtig tæt på det færdige resultat! Tusind tak for hjælpen!

Kan du ikke lige svare på spørgsmålet så jeg kan give dig nogen point?
Avatar billede Ialocin Novice
19. december 2011 - 23:33 #11
Hej Hestehat

Godt at høre :o) ... ellers send en mail ?
Hermed mit svar.

Med venlig hilsen, Nicolai
Avatar billede Ialocin Novice
19. december 2011 - 23:34 #12
Hej Hestehat

Godt at høre :o) ... ellers send en mail ?
Hermed mit svar.

Med venlig hilsen, Nicolai
Avatar billede Ialocin Novice
19. december 2011 - 23:35 #13
Eksperten.dk længe leve !!!

Hvorfor registrerede den ikke mit første svar ... i første omgang ???

Med venlig hilsen, Nicolai
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