Avatar billede jesperbaldur Nybegynder
30. juli 2004 - 16:29 Der er 5 kommentarer og
1 løsning

Udskrive noget på ark2 fra ark1 (VBA)

Hvordan kan man udskrive et område fra Ark2 når man befinder sig på ark1 uden først at skulle vælge ark2, altså vise ark2 fysisk´?
Jeg udskriver et område med flg kode:

    With Ark2
        With ActiveSheet.PageSetup
            .Orientation = xlLandscape
        End With
        Set udskrivv = .Range("A1:BK54")
        .PageSetup.PrintArea = udskrivv.Address
        m = Application.Dialogs(xlDialogPrint).Show
        .PageSetup.PrintArea = ""
    End With
men det virker kun hvis jeg først vælger ark2 altså skriver ark2.select
Kan man undgå dette på nogen måde, har overvejdet at lave arket usynligt men så melder den fejl :-(
Avatar billede sjap Praktikant
30. juli 2004 - 16:32 #1
Gæt:

Range("Ark2!A1:BK54")
Avatar billede jesperbaldur Nybegynder
30. juli 2004 - 17:25 #2
virker desværre ikke
Avatar billede sjap Praktikant
30. juli 2004 - 17:34 #3
Kan du ikke bruge

Application.ScreenUpdating = False

og så bruge select'en? Husk at selecte "tilbage" igen og sætte

Application.ScreenUpdating = True
Avatar billede jesperbaldur Nybegynder
30. juli 2004 - 18:00 #4
den kendte jeg ikke. Det virker perfekt
Avatar billede sjap Praktikant
30. juli 2004 - 18:11 #5
:0)
Avatar billede knowit-mmp Nybegynder
30. juli 2004 - 18:11 #6
Der er noget inconsistens i din kode :

Du koder op imod ark2 med linjen 'With ark2'

Men i næste linje koder du imod det aktive ark, som altså IKKE nødvendigvis er Ark2.

Mit forslag, selvom du har fået et svar :

dim rngPrintOut as Range

    With Ark2
        .PageSetup.Orientation = xlLandscape
        Set rngPrintOut = .Range(Ark2.cells(1,1),Ark2.Cells(63,54))
        rngPrintOut.Print
        .PageSetup.PrintArea = ""
    End With
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 for alle niveauer og behov – find det kursus, der passer til dig

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