Code Aanpassen Werkt Niet

Status
Niet open voor verdere reacties.
Goedenavond,

Door een gechraste laptop heb ik een tijd niet aan het bestand kunnen werken, ondertussen een nieuwe laptop dus we kunnen verder maaar loop gelijk tegen een probleem aan.

In Frm_Eleganza werkt combobox2 niet meer naar behoren, hij pakt de gegevens niet meer van A1 maar pas van A6,

De aanpassingen in de opmaak van kolom F op het tablad data worden niet overgenomen, hier moet een grote hoofdletter R (formaat 10) en hoofdletter P en E (formaat 8) komen te staan

Kan iemand mij uitleggen wat er fout gaat?

Rood = Opgelost
 

Bijlagen

  • Onderhoud Nieuw.xlsb
    905,9 KB · Weergaven: 68
Laatst bewerkt:
De opmaak van een cel wordt niet overgenomen in een textbox.
 
Je kunt natuurlijk wel 2 textboxen/labels achter elkaar zetten en dan in de eigenschappen Font aanpassen.
 
Opgelost :cool: had de code gekopieerd en die liep door tot checkbox 54 terwijl er maar 52 zijn

Ik heb ineens weer een vastloper in het bestand, Frm_Image wil niet meer openen en ik snap niet wat er fout gaat.
 
Laatst bewerkt:
Omdat ook ht bedrijf waar ik werk problemen ondervind door Covid19, was de nieuwe rapportage ook op en heel laag pitje komen te staan.
Vandaag heb ik groen licht gekeregen om er verder te werken , zodat het zo snel mogelijk in gebruik kan worden genomen.

Wel heb ik de vraag gekregen om een functie in te bouwen, dat een verslag print van het blad overzicht.

Nu heb ik onderstaande code gevonden, alleen zou ik de code zo aan willen passen dat er gelijk een pdf uitrolt zonder dat de monteur nog een keer extra op printen moet klikken.

Code:
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
      ActiveSheet.PageSetup.PrintArea = "A5:J" & LastRow
       bereik = ActiveSheet.PageSetup.PrintArea
     Range(bereik).PrintPreview
End Sub

Hoe zorg ik er daarnaast voor dat de pagina instellingen op elke computer/laptop hetzelfde staan

Alvast bedankt
 
Daar had je in al die maanden dan toch mooi de tijd voor om het uit te zoeken.

Code:
ActiveSheet.PageSetup
heeft meerdere opties.
 
Dat had gekunnen als ik deze vraag eerder had gehad, echter is dit 2 uur geleden pas besloten ;)
 
Bedankt voor de informatie, ik begrijp de uitleg echter snap ik niet hoe en waar ik dat in bovestaande code kan plaatsen.

Daarnaast is er nog de vraag om automatisch een PDF file te printen

Bedankt voor je hulp, ik ga nog even verder puzzelen
 
Ik heb dit er van kunnen maken en het lijkt te werken ( met behulp van wat knip en plakwerk van codes die ik al had)

Code:
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet.PageSetup
    .Orientation = xlLandscape
 .LeftMargin = Application.InchesToPoints(0.3)
 .RightMargin = Application.InchesToPoints(0.1)
 .TopMargin = Application.InchesToPoints(0.3)
 .BottomMargin = Application.InchesToPoints(0.2)
 .HeaderMargin = Application.InchesToPoints(1.3)
 .FooterMargin = Application.InchesToPoints(1.3)
End With
With ActiveSheet
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
      ActiveSheet.PageSetup.PrintArea = "A5:J" & LastRow
       bereik = ActiveSheet.PageSetup.PrintArea
     With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecteer map"
        .ButtonName = .Title
        .Show
        If .SelectedItems.Count > 0 Then
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=.SelectedItems(1) & "\" & Range("B8") & ("_") & Range("B11") & ".pdf", _
            OpenAfterPublish:=False 'Zet deze op False om de PDF niet te openen
            End If
            End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan