aanpassing bestand

[Theunie1965]

Hoi ik heb hier al goede hulp gehad met mijn bestand waar ik zeer dankbaar voor ben.

Maar helaas kom ik toch nog wat tegen waar ik helaas hulp bij nodig heb om dat mijn. kennis van excel minimaal is.

Ik voeg een bestand en foto toe waar het over gaat.

En is het mogelijk om bepaalde gegevens te kunnen printen naar een Brother QL-820NWBc

Wederom alvast harte bedankt en ben blij dat jullie andere mensen willen helpen toppers

 

[AD1957]

Welke "Bepaalde gegevens" wil je dan uitprinten.
p.s. kijk ook even naar je vorige topic.

 

[Theunie1965]

aanpassen bestand

Hoi

Als het mogelijk zou zijn Locatie / Soort / Man aantal / Vrouw aantal/ Datum start kweek

Dit is om op de bakken te plakken

Alvast hartelijk bedankt

Gr Theunie uit Limburg

 

[AD1957]

Probeer dit eens.

 

[Theunie1965]

Hoi Bedankt
wat moet ik doen???? als ik op prinssticker druk hij gat mooi naar een nieuwe pagina waar alles staat
Als ik op print sticker druk dan wordt de butten geselecteerd meer niet
druk ik op kies een andere printer helaas het zelfde dan wordt de button geselecteerd meer niet heb wel mijn printer als hoofd printer staan in de instellingen en op gedeeld in netwerk


Gr Theunie

 

[AD1957]

Bij mij werkt het prima. (mogelijk iets te maken met 32bits/64bits versie)
Komt er ook geen messagebox als je op de button print sticker klikt (de gele op blad sticker)

 

[Theunie1965]

hoi nee helemaal niets alleen dat ik de button kan bewerken als ik er op Klick vraagt niet naar printer of niks

Gr Theunie

 

[AD1957]

Als je maar een printer hebt maakt in userform1 commandbutton10 dit ervan.

Private Sub CommandButton10_Click()
If TextBox25 = "" Then
    MsgBox "vul de datum start kweek in"
    TextBox25.SetFocus
    Exit Sub
End If

With Sheets("sticker")
    .Range("C2:C6") = ""
    .Range("C2") = TextBox7
    .Range("C3") = TextBox2
    .Range("C4") = Val(TextBox21)
    .Range("C5") = Val(TextBox24)
    .Range("C6") = TextBox25
End With
Unload Me
Sheets("sticker").Range("B2:C6").PrintPreview  'of PrintOut[COLOR="#008000"][/COLOR]

End Sub

 

[Theunie1965]

bestand aanpassen

Sorry ik zie nu pas dat sommige muizen niet in de bestellijst gezet kunnen worden hoe los ik dt op

Gr Theunie

 

[Theunie1965]

Ik heb de code erin gezet maar nis is er veranderd bestand opgeslagen excel al uit afgesloten opnieuw open gemaakt maar helaas


Gr Theunie

 

[AD1957]

Plaats aub. het bestand waar het niet werkt.

 

[Theunie1965]

Bekijk bijlage 371796

Kan steeds de knop selecteren de andere in het groen ook


Gr Theunie

 

[AD1957]

Bijlage is niet te openen.
Plaats je bestand via de paperclip.

p.s.: Muizen kun je pas bestellen als je onder de minimale voorraad komt.
Dan wordt de bestelbutton in userform1 pas zichtbaar.

 

[Theunie1965]

Hoi hier het bestand de buttons zijn nog steeds te wijzigen nu print hij 5 stukjes van 1,3 hoog uit als ik app printen Klick

Gr Theunie

 

[AD1957]

Probeer dit eens. (zie de gewijzigde code van CommandButton10 in userform1.
Ik heb geen idee hoe groot de stickers zijn.
Een beetje spelen met het lettertype en formaat in de cellen B2 en C2 op blad sticker.
Eventueel nog aanpassen van rijhoogte en kolombreedte.
En anders combineren met WORD (zie een van jouw andere topics)

 

[Theunie1965]

He hartelijk bedankt

Kan het zijn omdat ik iMac heb dat het daarom niet echt lukt met uitprinten.


Gr Theunie

 

[AD1957]

Best Mogelijk, VBA voor een MAC is/kan anders zijn.
Daar heb ik geen ervaring mee. Misschien eens vragen op een forum voor MAC

Vraag: Wordt er iets geprint of helemaal niets in het bestand van mijn laatste post.

Verander anders PrintPreview eens in PrintOut (commandbutton10)

aanvulling: Gebruik de macrorecorder om de macro op te nemen.

 

[Theunie1965]

Helaas wordt er niets geprint hij snijdt steeds 5 blanco stukjes van ongeveer 1,5 af de rol is 6 cm breed.

 

[jverkerk]

Wat probeer je uit te printen, pagina 1?

 

[Theunie1965]

Hoi

Ik probeer Naam/Locatie/Soort/man/Vrouw uit te printen



Groeten