Printen

[henkievermeer]

Hallo,

Ik kom er niet uit en ik kan het ook niet op het forum en internet vinden.
De bedoeling is als ik weer wat heb ingevoerd komt dit op de laatste rij in het tabblad en ook in het frame printen.
Die laatste rij, of de inhoud van de textboxen zou ik dan willen printen.
Het moet dan achter elkaar komen te staan.

Wie kan mij helpen?

 

[Cobbe]

Deze behoeft wat meer uitleg.
Je spreekt van textboxen maar ik zie die niet in het bestand.
Wat moet er wanneer geprint worden.

 

[HSV]

Er staat een Userform in het bestand @Cobbe.
Ik doe maar een gok, want wat maakt het uit (gegevens uit werkblad of uit Form), het is om het even lijkt me.

Sub hsv()
 With Sheets("test")
  .PageSetup.PrintArea = .Cells(Rows.Count, 1).End(xlUp).Resize(, 5).Address
 End With
End Sub

 

[henkievermeer]

Harry,

Het maakt inderdaad niet uit of het nu uit de textboxen of van het tabblad geprint wordt.
Ik het de code gekopieerd en in het programma gezet, maar er wordt niets geprint. Ik krijg geen fout melding.
De printer staat aan doet het.
Nu is het zo als ik via een invoer scherm gegevens invoer en dan na een oke opdracht, wordt dit in de laatst regel in het tabblad weggeschreven, tevens wordt de invoer in de textboxen weer gegeven.
Dat kan ik nu simuleren door op de laatste regel van de listbox te klikken.

Dat moet er dus geprint worden.

 

[HSV]

Druk nu eens Ctrl+F2.

 

[henkievermeer]

Harry,

Ik heb het programma gestart en op de laatste regel geklikt (AA11), gebeurt niets.
Daarna CTRL+F2 en gebeurt er ook niets.

 

[HSV]

Ik dacht ik maak je een beetje wegwijs.
Hier voor het knopje op het formulier.

Private Sub CommandButton1_Click()
Unload Me
 With Sheets("test")
  .PageSetup.PrintArea = .Cells(Rows.Count, 1).End(xlUp).Resize(, 5).Address
  .PrintPreview  'dan wel .printout
 End With
End Sub

 

[henkievermeer]

Harry,

Dat weg wijzen lukte dus niet, maar het printen wel.

Bedankt en fijne dagen.

Ik zal het straks op opgelost zetten.

Henkie