Notifikationer

Markér alle som læst Log ud

Jesperstena01 Nybegynder

15. marts 2011 - 15:23 Der er 6 kommentarer og
1 løsning

Kode til makro(kontrolknap) til udskrivning/gem af faneblad?

Hej,

Jeg vil høre om nogen har et bud på en kode i Visual Basic Editor til følgende:

Udskrivning af faneblad 20x8:
Jeg har et tilbud i fanebladet 20x8, som jeg ønsker brugeren skal kunne udskrive. Jeg har oprettet en kontrolknap og tildelt denne en makro... Men hvad skal koden være i VBE sådan at KUN udskrivningsvinduet åbnes og fanebladet altså ikke udskrives før sælgeren har valgt den aktuelle printer som han ønsker at benytte? (Det vil være et plus hvis der eventuelt var en kode, som gjorde at standardprinteren automatisk valgtes).

Gem af tilbud:
Jeg ønsker ligeledes svar på, hvilken kode der skal anvendes i VBE således tilbuddet kan gemmes ved hjælp af en kontrolknap. Tilbuddet skal ikke gemmes før sælgeren har valgt den ønskede placering af filen. Makroen skal således kun "åbne" vinduet for skrivebordet. Så kan sælgeren selv placere filen. Kontrolknappen er reelt blot en erstatning for at trykke "gem-som".

Ps. Jeg arbejder i Excel version 2003.

På forhånd tak for hjælpen.

Mvh
Jesper

Synes godt om

phillips Nybegynder

15. marts 2011 - 15:34 #1

Har ikke testet, men prøv evt.:

Sheets("20x8").PrintOut

...og...

Application.GetSaveAsFilename

Virker de?

Synes godt om

Ialocin Novice

15. marts 2011 - 17:12 #2

Hej Jesper

Med denne her får du lov til at vælge printer + "Print what".
Skal det være mere specifik, med hensyn til at det netop skal være det aktuelle ark 20x8 ?

Med venlig hilsen, Nicolai

Synes godt om

Ialocin Novice

15. marts 2011 - 17:13 #3

Hej Igen

Prøver lige en gang til ...

Med denne her:

Private Sub cmdPrint20x8_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Synes godt om

Ialocin Novice

15. marts 2011 - 17:57 #4

Hej Jesper

Her er en kode til din "Gem som" knap:

Private Sub cmdGemSom_Click()

'variabel til det nye filnavn
Dim fnavn As String

'GemSom dialogen åbnes og fnavn tildeles det nye filnavn af typen .xls
fnavn = Application.GetSaveAsFilename(, fileFilter:="Microsoft Office Excel Workbook (*.xls), *.xls")

'gem workbook under det nye filnavn
ThisWorkbook.SaveAs fnavn

End Sub

Med venlig hilsen, Nicolai

Synes godt om

Jesperstena01 Nybegynder

16. marts 2011 - 08:46 #5

Hej,

Koderne virkede fint og kunne tilrettes mit behov.

Tak.

Synes godt om

Jesperstena01 Nybegynder

16. marts 2011 - 08:48 #6

Point?

Synes godt om

Ialocin Novice

16. marts 2011 - 11:35 #7

Hej Jesper

Godt at høre :o)

Hermed et "svar".

Med venlig hilsen, Nicolai

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	I går 17:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS