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?
Annonceindlæg fra Barco
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
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?
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
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.
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
19. december 2011 - 22:21
#6
Jæbs
19. december 2011 - 22:27
#7
Okay, har du evt. koordinaterne ??
19. december 2011 - 22:32
#8
Celle c6
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
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?
19. december 2011 - 23:33
#11
Hej Hestehat Godt at høre :o) ... ellers send en mail ? Hermed mit svar. Med venlig hilsen, Nicolai
19. december 2011 - 23:34
#12
Hej Hestehat Godt at høre :o) ... ellers send en mail ? Hermed mit svar. Med venlig hilsen, Nicolai
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig