• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

instellen columnwidths listbox

Status
Niet open voor verdere reacties.
A

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.991
Het lukt me om met onderstaande code de breedte van de eerste column in te stellen
is het ook mogelijk om de andere columns op andere breedtes in te stellen

Code: 
ListBox1.ColumnWidths = 40

update:

was weer te snel met vraag stellen ben er al achter
Code: 
ListBox1.ColumnWidths = "40;100;100;20"
 
Laatst bewerkt:
Kan je net zo goed gelijk in de ontwerpfase goed zetten als ze toch statisch zijn.
 
sorry zal de vraag als opgelost zetten.

VenA: dat was nou net het probleem, ik wil de userform na selectie kunnen afdrukken, kreeg heb echter niet passend.
De userform beslaat het hele scherm. Door voor het afdrukken de afmetingen aan te passen krijg ik hem fijn afgedrukt.
 
Je gaat de kolombreedtes in een Listbox aanpassen om een Userform af te drukken? Kan je even de volledige code plaatsen? Dan leer ik ook weer wat bij.
 
zal wel allemaal te uitgebreid zijn maar hier is de code
Code: 
Private Sub CommandButton11_Click()'afdrukken userform na aanpassing
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
CommandButton6.Visible = False
CommandButton7.Visible = False
CommandButton8.Visible = False
CommandButton9.Visible = False
CommandButton10.Visible = False
CommandButton11.Visible = False
Label10.Visible = False
TextBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False








ListBox1.Width = 1200
ListBox1.Font = 10
ListBox1.BackColor = vbWhite
ListBox1.FontBold = True
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "50;120;140;140;140;140;80;0;0"


UserForm3.Width = 1200
UserForm3.Height = 1000
ListBox1.Height = 950
DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
        DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
    'added to force landscape
    ActiveSheet.PageSetup.Orientation = xlLandscape
   
  
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

    ActiveSheet.PageSetup.PrintArea = ""
   
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.1)
        .RightMargin = Application.InchesToPoints(0.1)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(0.1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        '' PrintQuality = 300
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview 'printout
    ActiveWorkbook.Close False







End Sub
 
dit stukje code hoort er nog bij
Code: 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1
 
Dank je. Wat er allemaal op het www te vinden is.;)
 
Nagenoeg dezelfde code heb ik enkele jaren geleden van gast0660 gekregen:thumb:
Deze werkt in de betreffende applicatie beter. Moet maar eens gaan kijken waardoor dit wordt veroorzaakt.
Even nog een andere vraag:
Is er een vba code om de regelafstand in de listbox breder te maken.

Hier de code van gast0660:
Weet niet zeker of je er iets aan hebt zonder het bestand, kan het altijd nog uploaden.

Code: 
Private Sub CommandButton8_Click() 'printen formulier berekening Rc en U
With Me
                    For Each Ctrl In Frame2.Controls
                    If TypeName(Ctrl) = "TextBox" Then
                    Ctrl.BackColor = RGB(255, 255, 255)
                    End If
                    Next Ctrl
                    For Each Ctrl In Frame2.Controls
                    If TypeName(Ctrl) = "Label" Then
                    Ctrl.BackColor = RGB(255, 255, 255)
                    End If
                    Next Ctrl
                    .CommandButton7.Visible = False
                    .BackColor = RGB(255, 255, 255)
                    .Frame2.BackColor = RGB(255, 255, 255)
                    .Frame3.BackColor = RGB(255, 255, 255)
                    .Frame5.BackColor = RGB(255, 255, 255)
                    .Frame6.BackColor = RGB(255, 255, 255)
                    .Frame7.BackColor = RGB(255, 255, 255)
                    .Frame9.BackColor = RGB(255, 255, 255)
                    .Frame1.Visible = False
                    .Frame8.Visible = False
                    .Frame2.Top = .Frame2.Top
                    .Frame2.Top = .Frame1.Top
                    .Height = .Height - .Frame1.Height
                    .Height = .Height - 18
                    .Frame2.Height = 252
                    .Frame9.Left = .Frame9.Left
                    .Frame9.Left = .Frame8.Left
                    .Width = .Width - .Frame8.Width
                    .Frame2.Width = .Width - 25
End With
DoEvents
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
Workbooks.Add
With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .CenterHorizontally = True
        .CenterVertically = True
        End With
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", _
Link:=False, DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
Unload Me
ActiveWindow.SelectedSheets.PrintPreview 'PrintOut
ActiveWorkbook.Close False
End Sub
Private Sub ListBox1_Click() 'listbox lambdawaardes en omschrijving
With ListBox1
     If .ListIndex > -1 Then
          TextBox17.Value = .List(.ListIndex, 1)
          TextBox20.Value = .List(.ListIndex, 0)
     End If
End With
If TextBox17.Value <> "" Then TextBox18.SetFocus
If TextBox17.Value = "" Then TextBox17.SetFocus
End Sub
 
Is er iets mis met de PrintForm methode van het userform zelf?
 
op de userform staan een aantal commandbuttons en textboxen etc.
deze wil ik niet afdrukken.
Verder is het zo dat als ik PrintForm gebruik, er 4pagina's worden afgedrukt.
Met de code in #10 kan ik allerlei wijzigingen aanbrengen. Ben bijna tevreden, echter zou graag de regelafstand in de listbox groter willen.

In de code van gast0660 worden ook allerlei overbodige zaken eerst verwijderd.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan