| Forfatter |
 Emne Søg  Emne funktioner
|
kbno 
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
 Emne: Knap til print
Sendt: 15.Feb.2011 kl. 13:20 |
Jeg har et regneark med 3 faner. På fane 3 er det en rapport som skabes ved indtastninger på de 2 første faner.
Så er det jeg godt kunne tænke mig en knap eller lign. funktion på fane 2 som udskriver rapporten fra fane 3, og evt. gemmer den som pdf.
Håber i kan hjælpe
|
|
Hygge - Kim
Excel 365 DK user
|
 |
|
|
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 15.Feb.2011 kl. 13:45 |
Hej Kim,
Prøv lige denne, den virker i Excel 2007 og frem.
Du skal lave lidt justeringer på koden inden du kan bruge den.
ArkNavn = Navnet på det ark du vil gemme/printe
DataSti = Hvor du vil gemme filen, husk \ til sidst
FilNavn = Navnet på din pdf
Option Explicit
Sub Udskriv_og_Gem_Som_pdf()
Dim ArkNavn, DataSti, Filnavn As String
ArkNavn = "Ark2" 'Navnet på den fane som skal udskrives
DataSti = "C:\Test\" 'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = "test.pdf"
'Printer det aktive ark
Sheets(ArkNavn).PrintOut
'Gemmer det aktive ark som .pdf
Sheets(ArkNavn).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=DataSti & Filnavn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
//Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 15.Feb.2011 kl. 17:34 |
|
hmmm er lidt i tvivl hvor jeg skal taste det ind. Har nu forsøgt med både en activeX knap og en Kontrolelement for formular knap.
Begge giver desværre en fejl.
Compile error:
Invalid inside procedure.
Ska lige nlvnes at jeg sidder herhjemme på min Excel 2010 DK.
|
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 15.Feb.2011 kl. 18:14 |
Hej Kim,
Prøv lige om denne fil giver samme fejl?
//Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 15.Feb.2011 kl. 20:20 |
Hmmm jeg jokker lidt rundt i det der VBA editor. Jeg har fået den til at du med formlen i dit eksempel. Men lige pludselig kan jeg ikke deaktiverer knap og så virker den pludselig ikke og giver besked om at makroen ikke er tilgængelig. Jeg prøver at arbejde videre på det og se om ikke jeg kan finde hoved og hale i dette VBA halløjsa  btw - som en lille side bemærkning - kan man ikke svare indlæg i den nye MSIE 9.0 Beta 
|
|
Hygge - Kim
Excel 365 DK user
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 15.Feb.2011 kl. 20:44 |
Ja så tror jeg faktisk det lykkes. Har endda delt den op i 2 knapper. 1 til Gem som PDF og en til Print. Kan man lave en "Gem Som" funktion ??? Endnu engang 10000000000000000000 tak for hjælpen 
|
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 15.Feb.2011 kl. 21:10 |
Hej Kim,
Jeg kender godt fejlen i IE9 beta og textboxe, det samme var gældende i IE8 mens den var i beta, Microsoft løste problemet i den endelige version, jeg håber det også er tilfælde denne gang  ellers må jeg til tasterne.
Du skriver 'Gem som' funktion, mener du at man selv skal kunne vælge filnavnet på pdf'en?
//Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 15.Feb.2011 kl. 21:45 |
Ja - jeg er nemlig bange for at min kone som skal bruge arket ender med IKKE at kunne finde det igen - hun er langtfra super bruger. 
|
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 16.Feb.2011 kl. 10:53 |
Hej igen,
Jeg har lavet en boks hvor i du kan angive det ønskede navn på filen, boksen fortæller også hvor filen gemmes.
På denne måde kan du styre hvor filerne gemmes hver gang, din kone bestemmer navnet på filen.
Vi kan naturligvis også 'bare' vise Excel's egen 'Gem som' dialogboks... jeg ved ikke helt hvad du foretrækker.
//Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 16.Feb.2011 kl. 16:07 |
|
Hej Allan
Jeg har tænkt mere over det og kommet frem til følgende.
Jeg har en celle med uge nummer. Kunne man f.eks lave "Gom Som" knappen så den får følgende sti:
%Userprofile%/Dokumenter/Menuplan/menuplan_"celleA1".pdf
Så den gemmer dokumentet under brugerens dokument folder, uanset brugernavn og så hente filenavnet (ugfe nummer) fra f.eks. celle A1.
Ved ikke lige om det blev så let forståeligt.
Hygge - Kim
|
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 16.Feb.2011 kl. 17:24 |
Hej Kim, Den gemmer pdf'en i mappen 'Dokumenter' hos den bruger som er logget ind. Mappen 'Menuplan' oprettes som undermappe til 'Dokumenter' hvis den ikke findes i forvejen. Filnavnet bliver 'Menuplan_' + indholdet af A1 på det ark som gemmes + naturligvis .pdf. ps. jeg skal nok svare din besked og opdatere din fil med koden. Er vi ved at være i mål? //Allan
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
Sendt: 16.Feb.2011 kl. 18:46 |
|
= objFolders("mydocuments")... Se, det er flot stykke kode!
Jeg har tidligere haft samme problem, og var nød til at bruge "Sendkeys"
Sub a_test()
'VBA-editor må ikke være aktiv vindue når under sendkeys
SendKeys "{F12}"
End Sub
Og den metode har jeg lige så meget i mod, som at bruge betinget formatering.
|
|
VH rassten
Arbejde excel 2010
Privat excel 2010
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 16.Feb.2011 kl. 21:13 |
Du har fuldstændig ret rassten, Sendkeys er noget hø.
Jeg har selv haft en del scheduled jobs i Excel som kørte med SendKeys, pludselig var der en som skrev til mig via MSN messenger..... behøver jeg sige mere...
Jeg har en lille samling som jeg naturligvis gerne deler, jeg ved ikke om du kan bruge den, men jeg synes de er guld værd 
Sub SpecialMappeNavne()
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
Range("A1") = objFolders("desktop")
Range("A2") = objFolders("allusersdesktop")
Range("A3") = objFolders("favorites")
Range("A4") = objFolders("mydocuments")
Range("A5") = objFolders("sendto")
Range("A6") = objFolders("Recent")
Range("A7") = objFolders("startmenu")
Range("A8") = objFolders("allusersstartmenu")
Range("A9") = objFolders("Startup")
Range("A10") = objFolders("AllUsersStartup")
Range("A11") = objFolders("Templates")
Range("A12") = objFolders("Fonts")
Range("A13") = objFolders("Programs")
Range("A14") = objFolders("AllUsersPrograms")
Range("A15") = objFolders("NetHood")
Range("A16") = objFolders("PrintHood")
End Sub
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 16.Feb.2011 kl. 21:42 |
 Allan skrev:
Hej Kim, Er vi ved at være i mål? //Allan |
Jeps og lidt længere  1000000000000 tak for hjælpen endnu engang
|
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 16.Feb.2011 kl. 22:05 |
Velbekomme Kim, tak for tilbagemeldingen. 
//Allan
|
|
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
Sendt: 16.Feb.2011 kl. 22:08 |
|
Jeg siger også tak,
fin samling.
Specielt
Range("A1") = objFolders("desktop")
Range("A2") = objFolders("allusersdesktop")
var dem som jeg havde brug for!
|
|
VH rassten
Arbejde excel 2010
Privat excel 2010
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
Sendt: 16.Feb.2011 kl. 22:11 |
|
Altså uden range
objFolders("desktop")
objFolders("allusersdesktop")
jeg kunne ikke genne fil til desktop, uden at kende den speciel sti på andre computere
|
|
VH rassten
Arbejde excel 2010
Privat excel 2010
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 16.Feb.2011 kl. 22:12 |
Velbekomme, dejligt jeg kunne hjælpe dig rassten.
//Allan
|
|
kbno
Guld bruger
Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
|
Sendt: 17.Feb.2011 kl. 09:43 |
Hej Alllan
Nu har jeg lige åbnet det på arbejde og så kommer der en debugger fejl. Det er følgende der skulle være problemer med.
'Gemmer det aktive ark som .pdf
Sheets(ArkNavn).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=DataSti & Filnavn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Eneste forskel siden testen i går aftes er versionen af excel - jeg bruger excel 2010 derhjemme og har både en version 2003 + 2007 på arbejde, og ingen af dem virker.
Hjælpppp  |
|
Hygge - Kim
Excel 365 DK user
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 17.Feb.2011 kl. 10:03 |
Problemet er at Excel 2003 ikke har indbygget 'Gem som pdf' //Allan
|
|
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Knap til print