Notifikationer

Markér alle som læst Log ud

svaage Nybegynder

20. maj 2004 - 13:56 Der er 12 kommentarer og
1 løsning

udskriv vælg printer

jeg har lavet en udskrivningsknap med følgende kode:

Sheets("udskriv").PrintOut

den virker fint, men udskriver pr automatik til standardprinteren.

Hvordan kan jeg få standard msg-boxen "udskriv" frem, som man normalt gøres ved at vælge Filer -> Udskriv, så brugerne har mulighed for selv at vælge printer????

Hilsen Sv@@ge

Synes godt om

jkrons Professor

20. maj 2004 - 14:00 #1

Lav en sub med denne linie:

Application.Dialogs(xlDialogPrint).Show

Synes godt om

svaage Nybegynder

20. maj 2004 - 14:03 #2

vil den så automatisk kun udskrive det ark "udskriv" som jeg ønsker

Synes godt om

jkrons Professor

20. maj 2004 - 14:05 #3

Nej, så vil den åbne den dialogboks, du efterspurgte.

Synes godt om

jkrons Professor

20. maj 2004 - 14:05 #4

Hvis den altid kun skal udskrive et bestemt ark, villejeg definere det som udskiftsområde.

Synes godt om

halifax Nybegynder

20. maj 2004 - 14:09 #5

Der findes et lille gratis program, PrinterChanger, som fra et ikon i systray gør det muligt at skifte til en hvilken som helst installeret printer. Nemt og hurtigt. Var det noget - i stedet for selv at bøvle med koder i sine forskellige programmer? :)

Synes godt om

svaage Nybegynder

20. maj 2004 - 14:12 #6

kan det gøres på følgende måde:

Private Sub CommandButton2_Click()
Sheets("udskriv").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("ark1").Select
End Sub

hvis det altid er arket " udskriv " jeg skal udskrive

Synes godt om

jkrons Professor

20. maj 2004 - 14:14 #7

Ja, det vil virke udmærket.

Synes godt om

svaage Nybegynder

20. maj 2004 - 14:16 #8

hej halifax tak for tippet men det er ikke aktuelt i denne situation, da brugerne skal tænke mindst muligt og helst holde sig inden for samme program

Hilsen Sv@@ge

Synes godt om

svaage Nybegynder

20. maj 2004 - 14:17 #9

jkrons: det virker fint, tak for hjælpen, der er point på vej

Sv@@ge

Synes godt om

jkrons Professor

20. maj 2004 - 14:17 #10

Velbekomme.

Synes godt om

jkrons Professor

20. maj 2004 - 14:21 #11

Hvis du ændrer koden til

Application.ScreenUpdating = False
Sheets("udskriv").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("ark2").Select
Application.ScreenUpdating = True

vil brugeren ikke se, at der skiftes til udskrift før der udskrives og tilbage efter.

Synes godt om

svaage Nybegynder

20. maj 2004 - 14:25 #12

tak for det sidste tip der virker fint
fortsat god helligdag

Sv@@ge

Synes godt om

jkrons Professor

20. maj 2004 - 14:33 #13

I lige måde :-)

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
Æ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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS