Hej hej

Sub myPDFPrint()

Dim myrow As Long

'Myrow är hur många rader du behöver skriva ut, du får ändra h2 till den cellen där du har informationen.

myrow = ActiveSheet.Range("H2")

'Byt ut "blad1" mot namnet på bladet du vill skriva ut. byt även ut rangen så att det stämmer med ditt utskriftsområde (starrad och kolumnavgränsning

Sheets("Blad1").Range("a1:F" & myrow).ExportAsFixedFormat _

        Type:=xlTypePDF, _

        'PDFen hamnar i samma katalog som din excelbok ligger i och döps alltid till temp.pdf. Du kan själv ändra sökvägen om du så önskar. exempelvis           till "c:\temp.pdf" istället för ThisWorkbook.Path & "\temp.pdf"

        Filename:=ThisWorkbook.Path & "\temp.pdf", _

        Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, _

        IgnorePrintAreas:=False, _

        'Sätt denna till false om du inte vill att pdf öppnas efter den har blivit skapad.

        OpenAfterPublish:=True

End Sub

mvh

Christian