CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

frozzi Nybegynder

16. december 2008 - 12:12 Der er 4 kommentarer og
1 løsning

Printknap HJÆLP!

Skal lave en input box som spørg hvilket ark der skal printes, har kaldt ark1 value 1 og ark2 value 2, men det er kun value 1 (ark1) som den gider printe, nogen ide om hvorfor den ikk gider printe ark2????

Koden jeg arbejder med:

Private Sub CommandButton1_Click()

Dim Iprint As String
Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)
If Iprint = "1" Then
Sheets("Ark1").PrintOut Copies:=1, Collate:=True

End If

If Iprint = "2" Then
Sheets("Ark2").PrintOut Copies:=1, Collate:=True

End If

End Sub

Synes godt om

supertekst Ekspert

16. december 2008 - 14:50 #1

Lidt inspiration:

Private Sub CommandButton1_Click()
Dim Iprint As String
Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)

If Iprint = "1" Then
Sheets("Ark1").Activate
Sheets("Ark1").PrintOut Copies:=1, Collate:=True
End If

If Iprint = "2" Then
Sheets("Ark2").Activate
Sheets("Ark2").PrintOut Copies:=1, Collate:=True
End If
End Sub

Synes godt om

kabbak Professor

16. december 2008 - 15:15 #2

Dim Iprint As String
Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)

Sheets(Iprint).PrintOut Copies:=1, Collate:=True

Synes godt om

kabbak Professor

16. december 2008 - 15:19 #3

eller
Worksheets("Ark" & Iprint).PrintOut Copies:=1, Collate:=True

Synes godt om

frozzi Nybegynder

16. december 2008 - 16:00 #4

Hvis jeg bruger:

Private Sub CommandButton1_Click()
Dim Iprint As String
Iprint = InputBox("hvilket ark skal printes?", , 0, 100, 100)

If Iprint = "1" Then
Sheets("Ark1").Activate
Sheets("Ark1").PrintOut Copies:=1, Collate:=True
End If

If Iprint = "2" Then
Sheets("Ark2").Activate
Sheets("Ark2").PrintOut Copies:=1, Collate:=True
End If
End Sub

Så fungere det stadig ikk hvis jeg skriver værdien 2, så den skal printe ark 2, den går bare til ark'et og printer ikke siden...?

Synes godt om

kabbak Professor

16. december 2008 - 16:05 #5

Husk at der skal være noget på arket, for at den vil printe.

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

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