Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketKnap til print

 Besvar Besvar Side  12>
Forfatter
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg 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
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 15.Feb.2011 kl. 18:14

Hej Kim,

Prøv lige om denne fil giver samme fejl?
 
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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 Confused

btw - som en lille side bemærkning - kan man ikke svare indlæg i den nye MSIE 9.0 Beta Ouch
Hygge - Kim
Excel 365 DK user
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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 Beer
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg 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 Wink ellers må jeg til tasterne.
 
Du skriver 'Gem som' funktion, mener du at man selv skal kunne vælge filnavnet på pdf'en?
 
//Allan
 
 
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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. Embarrassed
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg 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
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 16.Feb.2011 kl. 17:24
Hej Kim,
 
Lad os se om denne kan klare det: uploads/1/gem_pdf_og_udskriv2.xls
 
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
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg 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 Tongue
 
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
 
 
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg Sendt: 16.Feb.2011 kl. 21:42
Citat: Allan Allan skrev:

Hej Kim,
 Er vi ved at være i mål?
 //Allan


Jeps og lidt længere Thumbs Up

1000000000000 tak for hjælpen endnu engang Beer

Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 16.Feb.2011 kl. 22:05
Velbekomme Kim, tak for tilbagemeldingen. Big smile
 
//Allan 
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg 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
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 16.Feb.2011 kl. 22:12
Velbekomme, dejligt jeg kunne hjælpe dig rassten.
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg 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 Lamp
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 17.Feb.2011 kl. 10:03
Problemet er at Excel 2003 ikke har indbygget 'Gem som pdf'
2007 kan godt, den skal bare opdateres for at kunne gemme som pdf, brug denne opdatering fra Microsoft: http://www.microsoft.com/downloads/da-dk/details.aspx?displaylang=da&FamilyID=4d951911-3e7e-4ae6-b059-a2e79ed87041
 
//Allan
Til top
 Besvar Besvar Side  12>

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk