*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Afdrukken met VBA code.  (gelezen 9116 keer)

0 leden en 1 gast bekijken dit topic.

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Afdrukken met VBA code.
« Gepost op: 01 maart 2007, 15:29:25 »
Beste

Graag zou ik een code willen die mij het aantal bladeren afprint die in een cel staat.

Vb; in cel A1 staat 6, bekomen door de volgende formule
= aantal(AB1:AB100)
Dit getal kan dus variabel zijn.

Als er staat 6,wil ik dus 6 bladzijden zien afgeprint worden.

De code moet dus verwijzen naar cel A1.

Groetjes Danny
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #1 Gepost op: 01 maart 2007, 16:16:41 »
Danny, plaats deze
Code: [Selecteer]
Sub AantalAfrdrukkenViaA1()
Dim iAntwoord As VbMsgBoxResult
Dim iAantal As Integer
iAantal = Range("A1").Value

   iAntwoord = MsgBox("Wil je deze sheet " & iAantal & " keer afdrukken?", vbYesNo, "Afdrukken?")
   If iAntwoord = vbNo Then Exit Sub
   
   ActiveWindow.SelectedSheets.PrintOut Copies:=iAantal, Collate:=True

End Sub
...in een module van je workbook. Maak er eventueel een button bij op je worksheet zodat je het afdrukken makkeljk kan starten. Ik heb er nog een 'ontsnappings If' bij gezet. Als je dan op de button klikt, wordt er niet direct begonnen met afdrukken als je de msgbox met No beantwoord. ;)

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Afdrukken met VBA code.
« Reactie #2 Gepost op: 01 maart 2007, 19:59:41 »
Beste Leo

Bedankt voor de code, ik moet ze nog uit proberen maar het zal wel goed zijn hé zoals ik kan zien.

groetjes danny :)
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Afdrukken met VBA code.
« Reactie #3 Gepost op: 02 maart 2007, 19:38:11 »
Citaat van: RedHead op 01 maart 2007, 16:16:41
Danny, plaats deze
Code: [Selecteer]
Sub AantalAfrdrukkenViaA1()
Dim iAntwoord As VbMsgBoxResult
Dim iAantal As Integer
iAantal = Range("A1").Value

   iAntwoord = MsgBox("Wil je deze sheet " & iAantal & " keer afdrukken?", vbYesNo, "Afdrukken?")
   If iAntwoord = vbNo Then Exit Sub
   
   ActiveWindow.SelectedSheets.PrintOut Copies:=iAantal, Collate:=True

End Sub
...in een module van je workbook. Maak er eventueel een button bij op je worksheet zodat je het afdrukken makkeljk kan starten. Ik heb er nog een 'ontsnappings If' bij gezet. Als je dan op de button klikt, wordt er niet direct begonnen met afdrukken als je de msgbox met No beantwoord. ;)

Groet, Leo

Beste Leo

Ik denk dat ik mij verkeerd heb uitgedrukt.
Het is de bedoeling dat in cel A1 het aantal bladzijden moeten afgeprint worden i.p.v. het aantal copies.

Ik heb max. 12 bladzijden die voorzien zijn van formules.
Als één van de formules waar is zal er op die bladzijde iets te zien zijn dat moet afgeprint worden, dit varieert van 1 tot 12 bladzijden.

Hopende hier een code voor te vinden?

Groetjes Danny.
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #4 Gepost op: 02 maart 2007, 22:01:50 »
Danny, Ik denk dat er wel iets mee te doen is. Maar hoe moet ik het nu zien? ??? Staat op sheet1, Range A1 het aantal worksheets dat moet worden afgedrukt? Dus als er een "6" staat, worden sheet 1 tot en met 6 afgedrukt. Of.... als er een "6" staat, kan het ook zijn dat sheet 1, 3, 4, 8 ,11 en 12 afgedrukt moeten worden???  ??? In het 2e geval kan je niet meer af met een vermelding van 1 getal op sheet1, dan zal je iets moeten bedenken voor iedere sheet waarop de VBA code kan reageren....

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #5 Gepost op: 02 maart 2007, 23:05:56 »
Danny, voor "gevalletje 1" heb ik als voorbeeld alvast een workbook bijgevoegd... ;)

Hou er trouwens WEL rekening mee dat deze methode de volgorde aanhoudt van de sheet zoals je ze WERKELIJK ziet in je workbook! Hmmm... lastige zin! ??? 8) Ik wil hiermee zeggen dat als je de "als-Sheet1-benoemde-sheet" naar de 2e plaats verschuift, deze dus als naam nog steeds "Sheet1" heeft, maar voor VBA de 2e plaats in de collectie van sheets inneemt!

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Afdrukken met VBA code.
« Reactie #6 Gepost op: 07 maart 2007, 16:25:08 »
Beste Leo

Ik zal het eens uittesten op mijn werk en U zult dan van mij nog iets horen, alvast bedankt.

Sorry van zolaat te reageren.

Groetjes Danny.
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #7 Gepost op: 09 maart 2007, 10:02:28 »
Danny,
Citaat van: Danny
Sorry van zolaat te reageren
...Beter laat, dan nooit reageren zeg ik maar... ;D ;D ;)

Werkt het naar behoeven?

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Afdrukken met VBA code.
« Reactie #8 Gepost op: 09 maart 2007, 10:20:26 »

Werkt het naar behoeven?

Beste Leo

Ik heb gezien dat dit over 12 tabbladeren gaat.
Ik heb 1 tabblad met 12 bladzijden gevuld met formules.
Van zodra de formule klopt in bladzijde 1 zal deze gegevens te voorschijn komen.
Hetzelfde geld ook voor bladzijde 2 enz...
De bladzijden volgen elkaar op, gegeven op bladzijde 1 en op 3, dit kan niet.
In cel A1 staat er hoeveel bladzijden er zijn met gegevens op (max 12)
Hier zou ik een code voor willen die mij zegt, dat ik Vb 6 bladzijden (gegeven cel A1) wil van sheet1 en de overige 6 bladzijden niet afprint.

Groetjes Danny
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #9 Gepost op: 09 maart 2007, 11:11:27 »
Danny, ooooooo  :o Is DAT wat je bedoelde... ;D JIJ had het over de AFDRUKbladzijden, en ik las dat als allemaal aparte sheets in een workbook. Tja, dan is het leven redelijk simpel. Vervang deze
Code: [Selecteer]
    For i = 1 To iAantal
        Sheets(i).PrintOut Copies:=1, Collate:=True
    Next i
...voor dit blokje...
Code: [Selecteer]
    ActiveSheet.PrintOut From:=1, To:=iAantal, Copies:=1, Collate:=True
 Of kijk gewoon in de bijlage...

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline danny147

  • Oplosser
  • ****
  • Berichten: 564
  • Geslacht: Man
  • Lotto, de sleutel tot het succes.
Re: Afdrukken met VBA code.
« Reactie #10 Gepost op: 13 maart 2007, 18:50:20 »
Beste Leo

 Heb alles een beetje in elkaar geweven en kom het volgende uit:

Sub AantalAfrdrukkenViaA1()
Dim iAntwoord As VbMsgBoxResult
Dim iAantal As Integer
iAantal = Range("A1").Value

ActiveSheet.PrintOut From:=1, To:iAantal, Copies:1, Collate:=true

End Sub

Deze werkt zoals ik gevraagd heb.

Bedankt Leo en tot nog eens.  :)

Groetjes Danny.
Gelogd
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz 1200
SAMSUNG_NP1234567890
Intel(R) HD Graphics 4000 2112MB -
Realtek High Definition Audio
Nr: 1 Model: Hitachi HTS727575A9E364
C:\ NTFS 670,11GB 494,48GB 8 080MB
AV: Trend Micro Maximum Security

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.283
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afdrukken met VBA code.
« Reactie #11 Gepost op: 13 maart 2007, 21:04:55 »
Danny, graag gedaan. En je weet bij vragen de site te vinden... ;D (zegt het voort! ;))

Groet, Leo
Gelogd
______________________________

Groet, Leo
Pagina's: [1]   Omhoog
 


www.combell.com