printopdracht aanpassen

[coolsluc]

In bijlage de file met de betreffende sheet

Mijn vraag: in sheet invulbriefjes kan ik via de macroknop het aantal tafels selecteren en deze dan afprinten tot zo ver alles in orde.
Als ik nu de geselecteerde bladen afprint krijg ik steeds een blad te veel vb:5 tafels is 5 bladen printen maar in de printopdracht staan er 6?
hoe kan ik dit aanpassen.



Bekijk bijlage moederfile prijskamp.xlsm

mvg,lco

 

[HSV]

Je moet je tafels beter verdelen over de pagina-einden.

Onderstaande werkt voor 5 tafels, maar is geen garantie voor 4.

[CODE]PaginaRange = Tafels * 29 + 1

[/CODE]
5x29+1 = 146 rijen.

 

[HSV]

Selecteer de twee rijen met de streepjes en ga naar eigenschappen.

 

[coolsluc]

HSV

Uw aangepaste code werkt juist tot tafel 31 daarna print hij telkens een blad te weinig af,heb jij hier een oplossing voor
ps: pagina eindes in orde gebracht,bedankt voor de tip.

PaginaRange = Tafels * 29 + 1

mvg,lco

 

[coolsluc]

Waarschijnlijk niet uitvoerbaar,zal vraag op opgelost zetten.
Bedankt voor de hulp van enkele puntjes,zijn weeral een beetje verder met file:thumb:

mvg,lco

 

[HSV]

Waarom verwijder je geplaatste berichten?
Ik geef er antwoord op, en jij verwijderd ze.

Zo lijkt het net of ik debiel ben.

 

[coolsluc]

HSV

SORRY maar ik dacht dat ik enkel uw reacties had laten staan

ps:ik dacht dat de vraag weer onvoldoende was uitgelegd (idem vorige vragen) en daarom enkele post aangepast/verwijderd (waarschijnlijk één te veel)
ook vanwege geen reactie dacht ik dat de vraag niet kon opgelost worden (kunnen zo ook verder met de file),de vraag was enkel om de userform AUTM. te laten werken zodat ik telkens de print niet manueel moet aanpassen

NOGMAALS SORRY VOOR DE VERKEERDE AANPAK/ REACTIE VAN MIJN KANT.

mvg,lco

 

[HSV]

Mijn reacties staan er wel, maar de vraag van jou is er tussenuit gehaald.
Hoe krijg jij meer briefjes met tafels 31.

 

[coolsluc]

HSV

als ik de knop gebruik in sheet invulbriefjes ga ik naar de userform dan stel ik het aantal tafels in vb:32 tafels
vervolgens druk ik tafelbriefjes en de nummers worden in de briefjes geplaatst,vervolgens druk ik op afdrukken
dan verschijnt kortstondig het schermpje het aantal bladen dat naar de printer verstuurd word EN DAAR GEEFT HIJ AAN DAT ER MAAR 31 BLADEN WORDEN AFGEDRUKT.

PS:van tafel 4 t/m tafel 31 verloopt dit correct , vanaf tafel 32 print hij een blad te weinig
Ik werk met office 2007
printer is HP deskjet 2549

Bekijk bijlage moederfile prijskamp.xlsm

mvg,lco

 

[HSV]

Het is allemaal te verklaren.

Je moet de bladen deelbaar maken op het aantal rijen dat je nodig hebt.
Bv. 10 tafels * 29 rijen = 290 rijen.
Ik heb daar een bij opgeteld =291 rijen.

Jij zit daar op 299 rijen.
290 zit daar binnen en wordt dus wel afgedrukt.

31*29+1 = 900.
Pagina 31 valt binnen 900 en je afdrukpagina.

Maar bij pagina 32 niet.
32*29+1 = 929.
929 valt nog net in pagina 31.

Ken je de knop 'pagina-eindevoorbeeld"?
Daar kun je het heel goed zien.

In de bijlage de knop afgebeeld en de blauwe lijnen zijn je pagina-einden.

 

[cow18]

andere insteek, als je weet hoeveel bladzijden je moet drukken, dan geef je die mee als parameter, het af te drukken bereik mag dan 1000 regels zijn, hij drukt dan toch maar de 1e 5 blz af

.PrintOut From:=1, To:=5

blijft natuurlijk zoals hierboven, dat je pagina-einden netjes zijn

 

[coolsluc]

HSV / cow18

Bedankt voor de verhelderende uitleg (snap nu de formule in vba).:thumb::thumb:
Het probleem met de pagina einde had ik al in orde gebracht (bedankt voor de uitleg in vorige posten)

ps:ik heb de code aangepast en nu werkt deze zoals het moet.

code:

PaginaRange = Tafels * 30 - 1


mvg,lco

 

[coolsluc]

Kan iemand helpen aub.

Na het testen van de printopdracht en andere macro's kom ik een fout tegen (weet niet hoe die er is gekomen):shocked:

hierbij een beetje uitleg over de fout
1.als ik de macroknop blad leegmaken activeer krijg ik het scherm (weet u het zeker) klik ja
2.fout 2147024809 (80070057) verschijnt
3;als ik foutopsporing aanklik krijg ik =>shapes ("afbeelding 6"). visible = X '6 klaver aas (deze is geel gekleurd )zie bijlage
ps;ik heb de code via google bekeken (schijnt iets met shapes te maken hebben)maar dat is vba taal en daar ken ik niets van



Bekijk bijlage foutmelding.docx

mvglco

 

[cow18]

in dat blad staan Picture 1 tot 3 en afbeelding 9.
Dus verander in vba die afbeelding 6 tot 8 door picture 1 tot 3

Sub testing()
    For Each s In Sheets("Prijskamp").Shapes
        MsgBox s.Name
    Next
End Sub

 

[coolsluc]

cow

bedankt voor uw snelle reactie maar de code aanpassen durf ik niet "is juist een nieuwe aangebracht door VenA"
ps:beter gezegd ik zou niet weten hoe en waar en denk dat we dan verder van huis zijn

de code werkt voor enkele dagen nog juist (wat is er veranderd):shocked:

mvg,lco

 

[cow18]

je hebt met 3 van de 4 figuren iets gedaan, gekopieerd uit een ander bestand of zo ???

Sub Macro2()

  If MsgBox("Weet u het zeker?", vbYesNoCancel) = 6 Then
    With ActiveSheet
      .Unprotect
      .Range("C2:G201,I2:I201,J2:L201,Ab2").ClearContents
      .Rows("34:201").EntireRow.Hidden = True
      .Range("B2:B" & .Range("B2").CurrentRegion.Rows.Count).Interior.ColorIndex = xlNone
      x = Application.Max(IIf(.Range("AG3") + 1 > 9, 6, .Range("AG3") + 1), 6)
      .Range("AG3") = x
     [COLOR="#FF0000"] .Shapes("Picture 1").Visible = x = 6 '  klaver aas
      .Shapes("Picture 2").Visible = x = 7 '  ruiten aas
      .Shapes("Picture 3").Visible = x = 8 '  schoppen aas[/COLOR]
      .Shapes("Afbeelding 9").Visible = x = 9 '  harten aas
      .Protect
      .Parent.Save
    End With
  End If
End Sub

 

[coolsluc]

cow18

ik heb de code gekopieerd naar de file maar de foutmelding blijft idem
ps:heb de vorige code terug geplaatst maar de fout blijft hetzelfde?

Sub Macro2()
'
' Macro2 Macro
' De macro is opgenomen op 19/05/2013 door Luc.
'
'

If MsgBox("Weet u het zeker?", vbYesNoCancel) = 6 Then
    With ActiveSheet
        .Unprotect
        .Range("C2:G201,J2:L201,Ab2").ClearContents
        .Rows("34:201").EntireRow.Hidden = True
    End With

x = Range("AG3").Value
x = x + 1
If x < 6 Or x > 9 Then
x = 6
End If
Range("AG3").Value = x
 
 
   If x = 6 Then
        ActiveSheet.Shapes("Afbeelding 6").Visible = True
        ActiveSheet.Shapes("Afbeelding 7").Visible = False
        ActiveSheet.Shapes("Afbeelding 8").Visible = False
        ActiveSheet.Shapes("Afbeelding 9").Visible = False
        '  klaver aas
   End If
   If x = 7 Then
        ActiveSheet.Shapes("Afbeelding 6").Visible = False
        ActiveSheet.Shapes("Afbeelding 7").Visible = True
        ActiveSheet.Shapes("Afbeelding 8").Visible = False
        ActiveSheet.Shapes("Afbeelding 9").Visible = False
        '  ruiten aas
   End If
   If x = 8 Then
        ActiveSheet.Shapes("Afbeelding 6").Visible = False
        ActiveSheet.Shapes("Afbeelding 7").Visible = False
        ActiveSheet.Shapes("Afbeelding 8").Visible = True
        ActiveSheet.Shapes("Afbeelding 9").Visible = False
        '  schoppen aas
   End If
   If x = 9 Then
        ActiveSheet.Shapes("Afbeelding 6").Visible = False
        ActiveSheet.Shapes("Afbeelding 7").Visible = False
        ActiveSheet.Shapes("Afbeelding 8").Visible = False
        ActiveSheet.Shapes("Afbeelding 9").Visible = True
        '  harten aas
   End If
 
 
 
 ActiveSheet.Protect

 Application.Workbooks("Troefkaart moederfile.xlsm").Save


End If
End Sub

mvg,lco

 

[coolsluc]

cow18

in bijlage een vroegere versie waarin de macro wel werkt,ik zie geen verschil met de huidige macro

Bekijk bijlage moederfile prijskamp test.xlsm

mvg,lcp

 

[cow18]

gebruik eens de macro in reactie 14.
Alleen die 4 namen mag je gebruiken !
Het helemaal uitschrijven van alles is zinloos. ontkoppelen
.Shapes("Picture 1").Visible = x = 6 ' klaver aas ---> levert true op als x 6 is, in alle andere gevallen is het resultaat false.
Bovendien zijn die afbeeldingen enkel screenshow, ze hebben enkel een esthetische functie.
Ze mogen uitgeschakeld worden, zet een enkel haakje ' of de 3 letters REM (van remark) voor die zin
Dan kunnen ze geen fout meer veroorzaken.

 

[coolsluc]

cow18

de afbeeldingen worden gebruikt om in de volgende prijskamp de juiste troef te weten (deze veranderd elke week)de afbeeldingen mogen niet uitgeschakeld worden.

de code uit post 16 heb ik volledig ingebracht maar het probleem blijft hetzelfde.
ps:ik heb niets aan de code veranderd deze is nog steeds hetzelfde als bij de opbouw van de file


mvg,lco