Søg
Avatar billede jensen363 Forsker
20. september 2005 - 16:14 Der er 21 kommentarer og
1 løsning

Makro til udskrivning af bestemte arkfaner

Denne virker ikke helt efter hensigten.

Sub UdskrivSamletRapport()
'
' UdskrivSamletRapport Makro
   
    Sheets(Array("Stamdata", "Afkastkrav", "Kalkule oversigt", "C-B Kalkule", _
        "Beregninger til C-B Kalkule 2", "ITR", "ITR-tastebilag", "Nedbrydning")).Select
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    Sheets("Menu").Select
   
    DialogSheets("DialogHovedmenu").Show
 
End Sub

Jeg har behov at brugeren bliver promptet for printervalg

Hvordan er syntaxen så
Avatar billede kabbak Professor
20. september 2005 - 16:27 #1
Sub UdskrivSamletRapport()
'
' UdskrivSamletRapport Makro
    Application.Dialogs(xlDialogPrinterSetup).Show

  ark = Array("Stamdata", "Afkastkrav", "Kalkule oversigt", "C-B Kalkule", _
        "Beregninger til C-B Kalkule 2", "ITR", "ITR-tastebilag", "Nedbrydning")
    For I = 0 To UBound(ark)
    Sheets(ark(I)).PrintOut Copies:=1, Collate:=True
    Next
    Sheets("Menu").Select
   
    DialogSheets("DialogHovedmenu").Show
 
End Sub
Avatar billede jensen363 Forsker
20. september 2005 - 16:32 #2
Den fejler ved :
Sheets(ark(I)).PrintOut Copies:=1, Collate:=True
Avatar billede kabbak Professor
20. september 2005 - 16:51 #3
Dine skal hedde exakt det der står her:
"Stamdata", "Afkastkrav", "Kalkule oversigt", "C-B Kalkule","Beregninger til C-B Kalkule 2", "ITR", "ITR-tastebilag", "Nedbrydning"

hvis de ikke gør det fejler den
Avatar billede kabbak Professor
20. september 2005 - 16:51 #4
Dine skal hedde  = Dine Ark skal hedde
Avatar billede jensen363 Forsker
21. september 2005 - 10:27 #5
Der er ikke nogen problemer med at optage makroen, der virker :

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

uden problemer.

Når makroen efterfølgende aktiveres via en funktionsknap fejler den med :

Run-tile error 1004 - Method 'PrintOut' or object 'Sheets' failed
Avatar billede kabbak Professor
21. september 2005 - 10:48 #6
Sub UdskrivSamletRapport()
'
' UdskrivSamletRapport Makro
    Application.Dialogs(xlDialogPrinterSetup).Show

  ark = Array("Stamdata", "Afkastkrav", "Kalkule oversigt", "C-B Kalkule", _
        "Beregninger til C-B Kalkule 2", "ITR", "ITR-tastebilag", "Nedbrydning")
    For I = 0 To UBound(ark)
    Sheets(ark(I)).Select
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next
    Sheets("Menu").Select
   
    DialogSheets("DialogHovedmenu").Show
 
End Sub

prøv denne
Avatar billede jensen363 Forsker
21. september 2005 - 10:53 #7
Makroen virker upåklageligt, ... men lige så snart denne aktiveres vie en funktionsknap fejler den !!!!
Avatar billede kabbak Professor
21. september 2005 - 10:55 #8
I hvilket modul, har du makroen til at ligge.?
Avatar billede kabbak Professor
21. september 2005 - 10:59 #9
Makroen skal være i et selvstændig modul.

Altså hverken i et arkmodul eller ThisWorkbook modulet
Avatar billede kabbak Professor
21. september 2005 - 11:00 #10
Den skal være i et selvstændig modul, fordi den ikke kan behandle andre ark, når den er i et arkmodul.
Avatar billede jensen363 Forsker
21. september 2005 - 11:16 #11
Jeg mener også, at der er tale om et selvstændigt modul men jeg kan ikke få det til at virke
Avatar billede jensen363 Forsker
21. september 2005 - 11:19 #12
Har du mulighed for at kigge på det, hvis jeg mailer regnearket til dig med en uddybende forklaring ?
Avatar billede kabbak Professor
21. september 2005 - 11:19 #13
hvis du nu vælger afspil makro, hvad så.

funktionsknap er det den du kan koble en makro på, eller det den fra VBA, hvor du kan kode under
Avatar billede kabbak Professor
21. september 2005 - 11:20 #14
ja prøv at sende
Avatar billede kabbak Professor
21. september 2005 - 11:20 #15
kabbak snabela tiscali dot dk
Avatar billede jensen363 Forsker
21. september 2005 - 11:20 #16
Adresse ?
Avatar billede kabbak Professor
21. september 2005 - 12:21 #17
Det eneste, jeg kan tro, er at du har sat en Lås på din Dialog(Hovedmenu),(jeg kan ikke lukke den normalt), så makroen ikke kan Selecte andre ark, hvordan den er sat op ved jeg ikke, da jeg ikke bruger Dialogs i mine ark, men udlukkende userforms.

Så hvis du ved hvordan man slår dialogen fra, mens koden kører, så tror jeg det virker.
Avatar billede jensen363 Forsker
21. september 2005 - 12:58 #18
Selvfølgelig er det det som er problemet .... men hvordan man lige løser det, det er en anden sag :o)
Avatar billede jensen363 Forsker
22. september 2005 - 10:13 #19
Læg lige svar, så du kan få point for din indsats :o)
Avatar billede kabbak Professor
22. september 2005 - 12:07 #20
jeg håber at du finder ud af det med din dialog, ellers skal du måske prøve at lave en userform i stedet for dialogen.
Avatar billede jensen363 Forsker
22. september 2005 - 12:12 #21
Jeg lavede en midlertidig "workaround" ... det går lige
Avatar billede kabbak Professor
22. september 2005 - 12:49 #22
prøv at se den kode, fra beanbag , der kom ind i dette spørgsmål.

http://www.eksperten.dk/spm/650074
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
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
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »