printopdracht aanpassen

[cow18]

ik doe mijn best, maar we praten blijkbaar niet op hetzelfde niveau.
Dus ik ga verder voor deze vraag passen.

 

[HSV]

Nederlands → Engels.

Bij de Nederlandse versie heten de shapes "Afbeelding 6" en bij de Engelse "Picture 6".

Met een Msgbox getest kan het zo voor beide versies.

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=#0000ff]      .Shapes(1).Visible = x = 6 '  klaver aas[/COLOR]
[COLOR=#0000ff]      .Shapes(2).Visible = x = 7 '  ruiten aas[/COLOR]
[COLOR=#0000ff]      .Shapes(3).Visible = x = 8 '  schoppen aas[/COLOR]
[COLOR=#0000ff]      .Shapes(4).Visible = x = 9 '  harten aas[/COLOR]
      .Protect
      .Parent.Save
    End With
  End If
End Sub

 

[coolsluc]

HSV

Bedankt voor de aanpassing (code is ingebracht en werkt naar behoren):thumb::thumb:

cow18
SORRY voor het niet begrijpen van uw aanbreng
maar in ieder geval bedankt voor alle hulp van uwentwege:d

mvg,lco

 

[Rikja]

Hallo Cools Luc,

in verband met je opgelost eerste probleem, het blad wat niet afgedrukt wordt, of een blad dat te weinig afgedrukt wordt.

Je bent nu geholpen, maar alvorens iets af te drukken, gebruik je dan nooit de knop "Afdrukvoorbeeld" ?
Dit zou je anders duidelijk laten zien wat er afgedrukt wordt, en je krijgt dan een raster in je werkblad als je Afdrukvoorbeeld verlaat.

Aan de hand van dat raster kan je dan al of sommige kolommen en/of rijen ietsje (1 punt is soms al genoeg) kleiner maken, waardoor al je gegevens binnen het afdrukbare gebied komen.
Die layout leg je dan vast door hem op te slaan.

Als je deze methode in je "moederfile prijskamp.xlsm" toepast, dan zie je in je werkblad dat er een stippellijn nog net op de eerste (bovenste deel van je 5 de afdrukblad staat, onder het Tafel 4 -blad.
Dit veroorzaakte het extra "niet helemaal blanco" afdruk-blad.
Een andere manier is om in Afbrukvoorbeeld, Pagina-instelling, Marges, die onder- of Bovenmarges iets te verkleinen.

Groeten,

Rikja

 

[snb]

@HSV

      .Rows("34:201").EntireRow.Hidden = True

of ?

      .Rows("34:201").Hidden = True

 

[HSV]

Net of dat ik dat niet weet.
Daar gaat het niet om.
Wat kan mij de rest schelen wat een ander heeft geschreven.

 

[snb]

Ik verbaasde me al

 

[Rikja]

Net of dat ik dat niet weet.
Daar gaat het niet om.
Wat kan mij de rest schelen wat een ander heeft geschreven.

goed dat er automatisch "Met vriendelijke groet" in je systeemvak staat...

 

[coolsluc]

Aan alle helpers bedankt voor de reacties en oplossingen "zonder jullie hulp zou dit nooit tot stand gekomen zijn":thumb::thumb:
ps:file werkt naar behoren ga vraag afronden en misschien tot later


EN VOOR ALLE NOG PRETTIGE EINDEJAARSFEESTEN


mvg,lco